Главная страница
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
2-1145779208
GeoNew
2006-04-23 12:00
2006.05.14
Свой курсор


2-1145711693
sick boy
2006-04-22 17:14
2006.05.14
Как получить имена видеоадаптера, hdd, CD-ROM, монитора...


15-1145307696
Дмитрий Белькевич
2006-04-18 01:01
2006.05.14
Купить Delphi7


15-1145127439
Nic
2006-04-15 22:57
2006.05.14
Технология создания крупных сайтов


15-1145467746
Volf_555
2006-04-19 21:29
2006.05.14
Что в следующем PHP - коде не верно!?