Вставка текста в TMemo в текущую позицию
Выходит интернетчик из туалета и довольный, говорит: Upload Completed. |
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 - ýòî ÊÐÓÒÎ!'; |
Далее: Выделить строку в Memo »»