Советы по 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]




- Начало -  - Назад -  - Вперед -