Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.18;
Скачать: CL | DM;

Вниз

возврат каретки   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
1-58090
AFROLOV
2002-07-08 13:31
2002.07.18
Как отследить нажатие кнопки TAB


1-58210
drt
2002-07-06 23:15
2002.07.18
random цвета


3-58027
Wistner
2002-06-28 02:21
2002.07.18
Как содержимое StringGrid’а вставить в MS Word???


1-58211
Timer
2002-07-06 13:55
2002.07.18
Работа со строчками в ComboBox


1-58183
Alex
2002-07-05 20:27
2002.07.18
Компонент