PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Delphi: Auf Klick aufs "?" reagieren


aths
2004-07-02, 16:06:01
Wenn man da raufklickt, will ich sofort eine Aktion ausführen. Wie stellt man dieses Event fest?

Nagelbrett
2004-07-02, 16:50:35
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
2004-07-02, 17:00:54
Dankö!!! Das klappt :)