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

Вниз

Передвинуть курсор в мемо   Найти похожие ветки 

 
Неуч   (2006-04-24 11:16) [0]

Здравствуйте мастера! Ниже приведенный код по клику правой кнопкой мыши передвигает курсор в richedit"e в позицию где находится курсор мыши.
procedure Tform1.richedit1MouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 var p:TPoint;
 begin
  if Button =mbRight  then begin
     p:=Point(x,y);
    richedit1.SelStart :=  richedit1.Perform(EM_CHARFROMPOS,0,LongInt(@p));
 end;
end;


Пытаюсь сделать тоже, для Мемо. Делаю так:

procedure Tform1.memo1MouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 var p:TPoint;
 begin
  if Button =mbRight  then begin
     p:=Point(x,y);
    memo1.SelStart :=  memo1.Perform(EM_CHARFROMPOS,0,LongInt(@p));
 end;
end;


И это неработает. Как заставить Tmemo выполнять сабжевое действие?
Заранее спасибо.


 
MBo ©   (2006-04-24 11:32) [1]

нужно прочитать в MSDN или WinSDK-хелпе о различии в работе этого сообщения для Rich и Memo


 
Неуч   (2006-04-24 14:44) [2]

lParam = MAKELPARAM(x, y)

Понятно, спасибо



Страницы: 1 вся ветка

Текущий архив: 2006.05.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.041 c
15-1145359781
Дарья
2006-04-18 15:29
2006.05.14
платный компонент


2-1145530972
Александр Б.
2006-04-20 15:02
2006.05.14
Изменение исходников


6-1137928873
Юрий Ж.
2006-01-22 14:21
2006.05.14
[?]NET SEND


4-1140502429
konrads
2006-02-21 09:13
2006.05.14
USB устройства


2-1145887691
Интересующийся
2006-04-24 18:08
2006.05.14
Временная задержка между событиями