Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
3rd
Фев
Получить набираемое слово в memo
Posted by Chas under Delphi
psycho-coder
procedure TForm1.Memo1Change(Sender: TObject);
begin
if Tag > 0 then
begin
Memo1.SelStart := Tag;
Memo1.SelLength := Abs(Length(Memo1.Text) - Tag);
Label2.Caption := Memo1.SelText;
Memo1.SelStart := Length(Memo1.Text);
end;
end;
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #32 then Tag := Memo1.SelStart;
end;
 |
imlist.rar (169.5 Кб) |