Einzelnen Beitrag anzeigen

Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#23

AW: TButton und ShowAccelChar

  Alt 23. Jan 2022, 17:34
Okay, hier die Auflösung zu Deiner Frage, wie du in diesem Quelltext teil sehen kannst wird eine Methode aufgerufen.

Delphi-Quellcode:
procedure TForm19.FormCreate(Sender: TObject);
begin
// Self.BringToFront;
  SendVK(Handle, VK_LMENU);
  SendVK(Handle, VK_LMENU, False);
  SendVK(Handle, VK_ESCAPE);
  SendVK(Handle, VK_ESCAPE, False);
end;
Dieser Methode habe ich beigebracht mehr aufzupassen indem man das "TargetWindow", also ein Handle von einem Fenster, mit liefern muss damit hoffentlich alles gut funktioniert.
Falls Du Dich fragst warum jeder VK_KeyCode zweimal gesendet wird in diesem Schnippsel, beim ersten mal wird entsprechende Taste gedrückt und beim zweiten mal wieder losgelassen.

In version 1 die ich hier reingestellt hatte, da gab es noch keine Prüfungen weswegen himitsu was schrieb und ich es überarbeitet hatte.
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat