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

[daddy]

Weiß jemand, ob ich im OnClick-Ereignis eines Buttons herausfinden kann, ob es per Tastatur oder per Maus ausgelöst wurde?

Im ControlState ist der Zustand "csLButtonDown" zu diesem Zeitpunkt schon nicht mehr eingetragen. Und ich würde gerne vermeiden mir im MouseDown-Ereignis selber zu merken, ob per Maus geklickt wurde, da diese Abfrage bei vielen Knöpfen in vielen verschiedenen Formularen erfolgen soll. Außerdem kann man auf einen Button ja auch klicken, den Mauszeiger vom Button weg bewegen und die Maustaste wieder loslassen. In diesem Fall wird das OnClick-Ereignis ja gar nicht ausgelöst. Evtl. kann ich einen eigenen Knopf als Komponente erzeugen aber vielleicht gibt es ja auch eine einfache Abfragemöglichkeit, die ich nur nicht finde.

Danke für alle Hinweise

Gruß

Daddy

[Apollonius]

Prüf doch einfach im onClick mit getasynckeystate() ob Leer- oder Entertaste gedrückt sind

[Nuclear-Ping]

Was willst du erreichen, wenn man mal fragen darf?

[daddy]

Beim Druck eines Knopfes öffnet sich ein Fenster. Innerhalb des Fensters gibt es verschiedene Komponenten und auf eine davon möchte ich anschließend automatisch den Mauszeiger positionieren. Das klappt soweit auch. Aber es soll eben nur dann geschehen, wenn der ursprüngliche Knopf per Maus angeklickt wurde und nicht wenn er per Tastatur (also Leertaste, Enter oder Hotkey) ausgelöst wurde.

[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

[Luckie]

Und warum keine WM_COMMAND an das Fenster schicken mit der ID der Schaltfläche? Mit der Maus klicken zu wollen ist mehr als eine Krücke.
Beispiel aus einem Programm:

Delphi-Quellcode:

SendMessage(hDlg, WM_COMMAND, MakeWParam(ID_MNU_CHOOSE_COMP, 0), 0);

[SubData]

Er will nicht mit der Maus klicken, sondern die Maus positionieren, wenn man damit geklickt hat ;>

[daddy]

"SubData" hat recht :) , ich möchte die Maus nur positionieren und nicht klicken.

BerndS schrieb:

Zitat:

einfach über OnMouseDown/OnMouseUp ein Variable setzen:

Das wird meines Erachtens nicht funktionieren, da das "OnClick" erst NACH dem Mouseup ausgeführt wird. Sonst hätte ich ja auch mit csLButtonDown im "OnClick" Erfolg gehabt siehe #1.

Mir ist klar, dass ich selber in meinen Komponenten oder in der Anwendung etwas vorsehen kann, um mir den Mausklick zu merken und dies dann abzufragen. Ich frage mich nur, ob in Delphi selber dafür noch nichts vorgesehen ist.

Gruß, Daddy

[andreash]

Zitat:

Zitat von Apollonius

Prüf doch einfach im onClick mit getasynckeystate() ob Leer- oder Entertaste gedrückt sind

Darüber lassen sich auch die Maustasten abfragen.

[daddy]

@Apollonius, @AndreasH:

Mit

Delphi-Quellcode:

(GetAsyncKeyState(VK_LBUTTON) = VK_LBUTTON)

kann ich tatsächlich erkennen, dass die linke Maustaste gedrückt wurde. Allerdings erkenne ich nicht, wann dies geschah. Das heißt, wenn ich irgendwo mit der Maus hinklicke und anschließend meinen Button per Tastatur betätige, liefert mir diese Abfrage "true" zurück, obwohl ich den Button gar nicht per Maus betätigt habe. Das liegt daran, das "GetAsyncKeyState" als Ergebnis liefert, ob eine bestimmte Taste gedrückt wurde, NACHDEM "GetAsyncKeyState" das letzte mal aufgerufen wurde. Ich komme also auch hier nicht drum herum etwas zu programmieren, wodurch "GetAsyncKeyState" immer wieder initialisiert wird.

Trotzdem danke für den Hinweis. Es scheint ja wohl so zu sein, dass Delphi für diese einfache Abfrage nichts vorsieht. Also muss ich evtl. die entscheidende Stelle in der VCL suchen und sehen, ob ich dort selber etwas einfügen kann.

Gruß, Daddy

PS: Falls doch noch jemand eine andere Idee hat ... :-D