Zitat von
Stormy:
Hi,
Setze doch im OnExpanded einfach eine Abfrage ob der Button.Expanded ist also
Delphi-Quellcode:
if Button.Expanded then
begin
//dein Code zum Fenster öffnen
end;
Leider so nicht möglich, da die Reihenfolge wie die Events im Button abgearbeitet werden trotzdem dazu führen, das letztendlich das Optionsfenster wieder geöffnet wird:
1) User klickt auf Button ->
OnExpanded wird gerufen -> Fenster wird erzeugt und angezeigt -> OFFEN
2) User klickt auf Button -> Callback wird gerufen ->
.Expanded wird auf False gesetzt -> GESCHLOSSEN, aber
3)
Button.Click wird intern gerufen (
.Expanded wider von
False auf
True gesetzt)
4)
Button.OnExpanded wird wieder gerufen -> Fenster wird erzeugt und angezeigt -> OFFEN
Eigentlich sollte 3) bis 4) nicht mehr passieren oder eben durch eine Logik unterbunden werden - genau hierzu suche ich eine Lösung.