Форум: "Начинающим";
Текущий архив: 2006.05.14;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Неуч   (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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c