Текущий архив: 2002.06.24;
Скачать: CL | DM;

Вниз

memo   Найти похожие ветки 

← →
Samvel   (2002-06-12 23:24) [0]

Подскажите пожалуйста как в мемо по курсору вставить текст
заранее спасибо

---

← →
Guerrillero Che ©   (2002-06-13 00:01) [1]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;s:string;
begin
s:=Memo1.Text;
i:=Memo1.SelStart;
Insert(edit1.Text,s,i+1);
Memo1.Text:=s;
end;

вставляем в позицию курсора текст из Edit

---

← →
Samvel   (2002-06-13 01:17) [2]

пробовал - неполучаеться

---

← →
VID ©   (2002-06-13 01:20) [3]

Memo1.SelText := "Your TEXT";

---

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

Текущий архив: 2002.06.24;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.017 c