Hi
In Vb wird beim FormMouseMove ereignis der status des Button direkt übergeben
bei Delphi leider nicht dort ist es anstelle von Button Sender.
Wie kann ich in erfahrung bringen (übergeben) welcher status der MouseButton zur zeit hat?
Delphi-Quellcode:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Var
Button : TMouseButton;
begin
ControlMouseMove(Image1, Button, Shift, X, Y)
end;
Hier 'ControlMouseMove' möchte ich dann den übergebenen status auswerten.
Delphi-Quellcode:
procedure ControlMouseMove(aCtrl : TObject;
Button : TMouseButton;
Shift : TShiftState;
X : Integer;
Y : Integer);
if Button = mbLeft then
Gruss Emil