Советы по Delphi

       

Вставка текста в TMemo


Как мне вставить какой-либо текст в TMemo в позицию курсора (во время выполнения программы)?

Прямого метода в Delphi не существует, но можно воспользоваться сообщениями Windows:

Delphi 2.0:

SendMessage(Memo.Handle, EM_REPLACESEL, 0, PCHAR('Текст'));

В Delphi 1.0 вы не сможете просто так преобразовать строку в Pchar, поэтому вам следует сделать следующее:

Var TempBuf :Array [0..255] of Char;SendMessage(Memo.Handle, EM_REPLACESEL, 0, StrPCopy(TempBuf,'Текст'));

Имейте в виду, что это ЗАМЕНЯЕТ любой выбранный текст. Если вам нужно этого избежать, присвойте предварительно свойству Delphi Memo.SelLength 0.

- Dave Berg [000924]



Содержание раздела