Форум: "Основная";
Текущий архив: 2002.07.18;
Скачать: [xml.tar.bz2];
Вниз
возврат каретки Найти похожие ветки
← →
newbie1 (2002-07-08 11:16) [0]Добрый день
Как мне в RichEdit установить позицию курсора а также подвинуть его в начало или конец строки.
И как мне вытащить координату из сообщения которое мне пришло с сервера в шестнедцатеричном коде например 22 25
← →
Ghost. (2002-07-08 11:31) [1]Procedure TForm1.GetPosition(Sender: TRichEdit);
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);
Panel1.Caption := IntToStr(iY + 1) + ":" + IntToStr(iX + 1) ;
end;
procedure TForm1.RichEditMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GetPosition(RichEdit);
end;
procedure TForm1.RichEditKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
GetPosition(RichEdit);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c
