Im "OnClick" eines Buttons erkennen, ob es per Maus erfolgte

[BerndS]

Hallo,
einfach über OnMouseDown/OnMouseUp ein Variable setzen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var S:String;
begin
  if fMouseDown then
    S:='Mouse'
  else
    S:='Tastatur';
  ShowMessage(S);

end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  fMouseDown:=True;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  fMouseDown:=False;
end;

Gruß Bernd