Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > правая кнопка мыши

Автор: grib 8.10.2004, 04:47

клик левой кнопкой, понятно:

Код

button.OnClick:=OnClickMyButton;

а правую можно так??

Автор: Alex 8.10.2004, 06:33

Код

procedure TForm1.myMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    ShowMessage('');
end;

....

Button1.OnMouseUp:= myMouseUp;

Автор: grib 8.10.2004, 09:57

ага, работает