Форум: "Начинающим";
Текущий архив: 2008.08.03;
Скачать: [xml.tar.bz2];

Вниз

Вставка текста в Memo   Найти похожие ветки 

← →
lewka   (2008-07-04 08:40) [0]

Привет!!!
Подскажите как вставить текст в то тесто, где находится курсор в 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;

---

← →
Palladin ©   (2008-07-04 08:51) [1]

Insert + F1

---

← →
Leonid Troyanovsky ©   (2008-07-04 09:47) [2]

> lewka   (04.07.08 08:40)  

> Подскажите как вставить текст в то тесто, где находится
> курсор в TMemo

Memo.SelText :=

--
Regards, LVT.

---

← →
lewka   (2008-07-04 11:06) [3]

Спасибо. Все работает

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.08.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c