Вставка текста в TMemo в текущую позицию
Falk0ner, вс, 06/07/2008 - 15:34.
Вставка текста в TMemo в текущую позицию
SendMessage(Memo.Handle, EM_REPLACESEL, 0, PCHAR('Delphi World - это КРУТО!'));
Var TempBuf :Array [0..255] of Char;
SendMessage(Memo.Handle, EM_REPLACESEL, 0, StrPCopy(TempBuf,'Delphi World - это КРУТО!'));
Memo1.SelText := 'Delphi World!';
Var TempBuf :Array [0..255] of Char;
SendMessage(Memo.Handle, EM_REPLACESEL, 0, StrPCopy(TempBuf,'Delphi World - это КРУТО!'));
Memo1.SelText := 'Delphi World!';
http://delphiworld.narod.ru/ DelphiWorld 6.0
Отправить комментарий