| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как отловить сообщение OnMouseWheel которое происходит над моим [D7]

OnEvent ©   (2004-12-14 06:51:00) 

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

---

OnEvent   (2004-12-16 01:49:00) [1]

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

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

---

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

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


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

---

ssk   (2004-12-14 09:26:00) [3]

я делал так:


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;


---

Наверх