TButton und ShowAccelChar

[KodeZwerg]

Zitat von OsCor:

Dabei habe ich aber noch nicht verstanden, was „Ziel angeben” bedeutet. Vielleicht kann mir KodeZwerg das noch erklären?

Ich verstehe die Frage nicht ganz. "Ziel angeben" kommt nirgendwo vor im Quelltext.
Mein Quelltext angewandt auf einem Formular Handle macht was du wolltest, das Formular (inklusive TButton) zeigt den AccelChar.
Ich wäre auch ein Gegner davon Systemeinstellungen einfach so zu ändern aber es ist ja nur für Dich.

Es ist besser du kopierst betreffende Zeile und ich erkläre sie Dir gerne.

(Mein Quelltext verändert nichts, er simuliert lediglich das drücken der Alt Taste gefolgt von einer Escape Taste.)

[OsCor]

In Beitrag #17 hast du geschrieben

Zitat:

die obige methode etwas überarbeitet so das nun auch ein Ziel angegeben werden kann.

Das hat mich irritiert, weil ich es nicht zuordnen kann.

Gruß
Oswald

[KodeZwerg]

Okay, hier die Auflösung zu Deiner Frage, wie du in diesem Quelltext teil sehen kannst wird eine Methode aufgerufen.

Zitat von KodeZwerg:

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.

[OsCor]

Ok, jetzt habe ich das verstanden. Es ist schon sehr lange her, seit ich im Rahmen der Darstellung von vertikaler Schrift mit Handles zu tun hatte.

Danke
Oswald