Вставка текста в 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