Delphi: Auf Klick aufs "?" reagieren

[aths]

Wenn man da raufklickt, will ich sofort eine Aktion ausführen. Wie stellt man dieses Event fest?

[Nagelbrett]

Hi,
wenn du direkt auf den Click aufs Fragezeichen reagieren willst, bleibt dir wohl nichts anderes übrig, als die Windows-Message abzufangen.

Dazu deklarierst du eine Message-Methode im Private-Abschnitt der Form-Klasse:
procedure FragezeichenClick(var Msg: TMessage); message WM_SYSCOMMAND;
Diese implementierst du dann so oder so ähnlich:
procedure TForm1.FragezeichenClick(var Msg: TMessage);
begin
if Msg.Msg = WM_SYSCOMMAND then
begin
case Msg.wParam of
SC_CONTEXTHELP: MachEtwas; //dein Part
else
Inherited; //damit die anderen Buttons wie gewohnt funktionieren
end;
end;
end;

[aths]

Dankö!!! Das klappt :)