| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Колесо прокрутки [D7, XP]
SerJaNT © (2006-08-12 12:23:00)Есть две кнопки. Есть мышка с колесом прокрутки. Как сделать так чтобы если колесом прокрутки крутим вниз, то срабатывает событие OnClick одной кнопки, а если крутим вверх, то другой кнопки?
DprYg (2006-08-12 14:45:00) [1]procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
Handled := true;
Button1Click(Sender);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Button1');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('Button 2');
end;
procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
Handled := true;
Button2Click(Sender);
end;
SerJaNT (2006-08-12 14:39:00) [2]Добавлять такие события кнопке тоже не очень хорошо, может есть альтернативный способ отследить?
SerJaNT (2006-08-12 14:34:00) [3]
> Anatoly Podgoretsky © (12.08.06 14:17) [3]
Действительно. Так будет лучше.
> В обработчиках OnMouseWheelUp и OnMouseWheelDown вызывать
> OnClick.
У кнопок нет таких событий. Или тогда так: как добавить эти самые события кнопке?
Anatoly Podgoretsky (2006-08-12 14:17:00) [4]Вызывать событие тоже не хорошо, может стоит вызывать метод Click
DprYg (2006-08-12 12:32:00) [5]В обработчиках OnMouseWheelUp и OnMouseWheelDown вызывать OnClick.
TUser (2006-08-12 12:30:00) [6]wm_mousewheel
| |
