Форум: "Основная";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];
Внизвставка слов в объект класса TRichEdit Найти похожие ветки
← →
FastByte (2004-08-11 09:29) [0]Уважаемые господа программисты, очень надо вставить произвольное слово в объект класса TRichEdit,но не в конец текста, а в местоположение курсора. Подскажите пожалуйста, как это сделать?
Заранее благодарен.
← →
@Lex © (2004-08-11 10:13) [1]var
Buf : PChar;
....
RichEdit1.Perform(EM_REPLACESEL, 0, LongInt(Buf));
← →
FastByte (2004-08-11 11:04) [2]Огромное спасибо :)
Ща буду пробовать.
← →
FastByte (2004-08-11 11:28) [3]Получилось :)
Вот текст,для тех, кого интересует:
Procedure StrInsert(sStr:String);
var
pBuf : PChar;
nSize : Integer;
Begin
nSize:=Length(sStr);
GetMem(pBuf,nSize);
StrCopy(pBuf,PChar(sStr));
RichEdit1.Perform(EM_REPLACESEL,0,LongInt(pBuf));
End;
← →
GrayFace © (2004-08-11 15:30) [4]RichEdit.SelText:=...
Твой пример нужно использовать только чтобы можно было сделать Undo. Тогда надо RichEdit1.Perform(EM_REPLACESEL,1,LongInt(pBuf));
← →
FastByte (2004-08-12 15:18) [5]Да, кстати, важная деталь :)
Спасибо.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.03 c