RostY
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Vimana2
получаешь позицию курсора в ричедите:
что-то типа
Цитата:
var
iX,iY : Integer;
TheRichEdit : TRichEdit;
begin
iX := 0; iY := 0;
TheRichEdit := TRichEdit(Sender);
iY := SendMessage(TheRichEdit.Handle, EM_LINEFROMCHAR, TheRichEdit.SelStart, 0);
iX := TheRichEdit.SelStart - SendMessage(TheRichEdit.Handle, EM_LINEINDEX, iY, 0);
|
потом двигаешься посимвольно влево до ['.','!','?'] или начала абзаца и вправо и получаешь предложение
Добавлено:
====
Подскажите, как отобразить из ресурса анимационный курсор в Windows 9x.
делаю что-то такое:
var hCur: HCURSOR;
hCur:=LoadCursor(HInstance, Pchar('MYCURSOR'));
Screen.Cursors[1] := hCur;
Z1.Cursor:=1;
в Win 2000, XP работает, а в 98 неа. Что делать ?  |
Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 11:12 05-05-2006 | Исправлено: RostY, 11:47 05-05-2006 |
|
