Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.08.03;
Скачать: CL | DM;

Вниз

Вставка текста в 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
15-1212679909
Тимохов
2008-06-05 19:31
2008.08.03
Помогите, пожалуйста, с ошибкой 1816


2-1215083265
TUserClass
2008-07-03 15:07
2008.08.03
Скопировать TListView в другой TListView..


3-1203543509
Игорь Шевченко
2008-02-21 00:38
2008.08.03
Вывод мужских и женских имен. Oracle


15-1213900263
No_Dead
2008-06-19 22:31
2008.08.03
что-то я не уловил почему так... (о пхп)


2-1215089682
Кирей
2008-07-03 16:54
2008.08.03
ошибка в вычисляемом поле