| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вставка текста в Memo [D7, XP]
lewka © (2008-07-04 08:40:00)Привет!!!
Подскажите как вставить текст в то тесто, где находится курсор в TMemo? положение курсора я определяю так:
procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Memo1Click(Self);
end;
procedure TForm1.Memo1Click(Sender: TObject);
VAR LineNum : LongInt; CharNum : LongInt;
begin
LineNum := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
CharNum := Memo1.Perform(EM_LINEINDEX, LineNum, 0);
Label1.Caption := IntToStr(LineNum+1)+' : '+IntToStr((Memo1.SelStart-CharNum)+1);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1Click(Self);
end;
lewka (2008-07-04 11:06:00) [1]Спасибо. Все работает
Leonid Troyanovsky (2008-07-04 09:47:00) [2]
> lewka (04.07.08 08:40)
> Подскажите как вставить текст в то тесто, где находится
> курсор в TMemo
Memo.SelText :=
--
Regards, LVT.
Palladin (2008-07-04 08:51:00) [3]Insert + F1
| |
