Форум: "Начинающим";
Текущий архив: 2006.09.03;
Скачать: [xml.tar.bz2];
ВнизКолесо прокрутки Найти похожие ветки
← →
SerJaNT © (2006-08-12 12:23) [0]Есть две кнопки. Есть мышка с колесом прокрутки. Как сделать так чтобы если колесом прокрутки крутим вниз, то срабатывает событие OnClick одной кнопки, а если крутим вверх, то другой кнопки?
← →
TUser © (2006-08-12 12:30) [1]wm_mousewheel
← →
DprYg © (2006-08-12 12:32) [2]В обработчиках OnMouseWheelUp и OnMouseWheelDown вызывать OnClick.
← →
Anatoly Podgoretsky © (2006-08-12 14:17) [3]Вызывать событие тоже не хорошо, может стоит вызывать метод Click
← →
SerJaNT © (2006-08-12 14:34) [4]
> Anatoly Podgoretsky © (12.08.06 14:17) [3]
Действительно. Так будет лучше.
> В обработчиках OnMouseWheelUp и OnMouseWheelDown вызывать
> OnClick.
У кнопок нет таких событий. Или тогда так: как добавить эти самые события кнопке?
← →
SerJaNT © (2006-08-12 14:39) [5]Добавлять такие события кнопке тоже не очень хорошо, может есть альтернативный способ отследить?
← →
DprYg © (2006-08-12 14:45) [6]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;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.09.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.085 c