Вставка текста в TMemo в текущую позицию
Материал из DRKB
Вставка текста в 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!';
Source: http://delphiworld.narod.ru/
ID: 00988