EXIT-Ereignis durch Click auf TTollbutton

[Olaf Hellmann]

Hallo,

ich habe folgendes Probleme:

Wenn ich auf ein Toolbutton clicke, soll von dem aktiven Control (z.B. TEdit) die EXIT-Procedure durchlaufen werden. Wenn ich hier einen Abbruch erzeuge (z.B. Wert falsch), soll das CLICK-Ereignis des ToolButton nicht durchlaufen werden.
Man könnte natürlich ein TButton nehmen, aber ein ToolButton hätte den Vortel, das der Fokus im momentan aktiven Control bleibt.
Ihr habt bestimmt eine einfache Lösung.

Olaf

[Mario.Noack]

Verstehe ich Dich richtig: Du willst beim Click auf den ToolButton zwar OnExit des aktiven Controls durchlaufen, aber es soll nicht wirklich passieren?<p>
<pre>
var OldControl: TControl;
begin
OldControl := ActiveControl;
ActiveControl := NIL;
ActiveControl := OldControl;
end;</pre><p>
Probiere mal das im OnClick vom ToolButton, nicht getestet...<p>
Schöne Grüße, Mario Noac

[Olaf Hellmann]

Danke Mario,
das hat mir die richtige Richtung gegeben.
Es ging mir nur darum, das bei bestimmten Bedingungen, die im EXIT-Ereignis geprüft werden, das CLICK-Ereignis dann abbrechen muß.
Das habe ich jetzt herausgefunden, kann man mit abort erzeugen