D
Dock1100
Недавно столкнулса с проблемой нужно определить какой кнопкой мыши лувой/правой кликають по обекту, если левая то ето событие OnClick ,
но как определить правую?

Недавно столкнулса с проблемой нужно определить какой кнопкой мыши лувой/правой кликають по обекту, если левая то ето событие OnClick ,но как определить правую?
// TMouseButton = (mbLeft, mbRight, mbMiddle);
// TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (Button=mbLeft)and(Shift=[ssAlt,ssLeft])then
MessageBox(0,'la-la','la-la',MB_OK);
end;
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab