Главная страница
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.05 c
3-1142690910
Yastreb
2006-03-18 17:08
2006.05.14
Paradox. несколько картинок в одно поле


15-1145492068
Mozart
2006-04-20 04:14
2006.05.14
вопрос по биллингу


3-1143024141
mmms
2006-03-22 13:42
2006.05.14
Можно ли из открытого ADOQuery узнать мин/макс значение


2-1146121093
IntruderLab
2006-04-27 10:58
2006.05.14
TIdFTP


2-1146083600
chai
2006-04-27 00:33
2006.05.14
Работа с поинтерами: корректен ли этот код?