Скачать: CL | DM;

Как отловить сообщение OnMouseWheel которое происходит над моим   Найти похожие ветки 

← →
OnEvent   (2004-12-14 06:51) [0]

компонентом? Компонент - наследни TEdit. А у TEdit такого сообщения нет.

---

← →
ssk ©   (2004-12-14 09:26) [1]

я делал так:


public
   { Public declarations }
 protected
   procedure WMMOUSEWHEEL(var Message: TMessage); message WM_MOUSEWHEEL;

 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMMOUSEWHEEL(var Message: TMessage);
begin
 if Screen.ActiveControl is TEdit then
   if Message.WParam > 0 then
     ShowMessage("up")
       else
         ShowMessage("down");
 inherited;
end;


---

← →
OnEvent   (2004-12-15 01:18) [2]

> ssk ©   (14.12.04 09:26) [1]


Спасибо, попробую !

---

← →
OnEvent   (2004-12-16 01:49) [3]

> ssk ©   (14.12.04 09:26) [1]

Попробовал, работает. Ещё раз, спасибо !

---

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

Скачать: CL | DM;



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