Forum: Object-Pascal / Delphi-Language
Delphi
by Roaster,
13. Jul 2009
OK, das Action property habe ich nochmals schnell im Button implementiert. Nur so ganz erschließt sich mir noch nicht der Sinn:
In Action.OnUpdate wird Button.Expanded je nach Optionfenster.Visible gesetzt? So weit so klar,
Warum bei Action.OnExecute das Fenster schließen? Wann erstelle ich denn dann deiner Meinung nach das Optionsfenster?
So, jetzt hast du mich komplett verwirrt:...
Forum: Object-Pascal / Delphi-Language
Delphi
by Roaster,
13. Jul 2009
Hier bitteschön, zuerst der Code, der das Erzeugen des Optionsfensters auslöst:
procedure TForm2.OnOptionClose(Sender : TObject);
begin
MyQuickButton1.Expanded := False;
end;
procedure TForm2.MyQuickButton1Expanded(Sender: TObject; Expanded: Boolean);
var
oPnt: TPoint;
Forum: Object-Pascal / Delphi-Language
Delphi
by Roaster,
13. Jul 2009
Das hatte ich zuvor schon, nur wie geschrieben ist es jetzt ein wenig zu unübersichtlich geworden um alle Radiobuttons und Checkboxen dort unterzubringen. Ausserdem würde dann aufgrund der Größe des Panels der Rest des Parentfensters aus dem sichtbaren Bereich rausgeschoben werden.
Es sollte ja auch nicht so der klassische Optionsdialog für die Anwendungseinstellungen sein, sondern eher um...
Forum: Object-Pascal / Delphi-Language
Delphi
by Roaster,
13. Jul 2009
Stormy,
Leider auch nicht so einfach möglich. Der besagte Button, funktioniert ja so tadellos, ich verwende diesen bspw. auch dazu ein Panel ein- oder auszuklappen oder Details zu Fehlermeldung ein- bzw. auszublenden.
Das mit dem Panel hatte ich auch bisher statt dem Optionsfenster verwendet, gefiel mir dann aber nicht mehr so und aufgrund neu hinzugekommener Optionen wurde das Panel dann...
Forum: Object-Pascal / Delphi-Language
Delphi
by Roaster,
13. Jul 2009
Ja, daran dachte ich natürlich auch schon, nur würde dies
erstens nach sich ziehen, dass das Ganze etwas unschön aussieht und als "Fenster" zu erkennen ist, und sich nicht wie im Screenshot von oben als klappbares "Panel" darstellt und
zweitens könnte der User dann das Fenster ggf. verschieben oder evtl. das Parentfenster (mit dem Button darauf) verschieben und das Optionsfenster würde sich...
Forum: Object-Pascal / Delphi-Language
Delphi
by Roaster,
13. Jul 2009
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...
Forum: Object-Pascal / Delphi-Language
Delphi
by Roaster,
13. Jul 2009
Das funktioniert so leider nicht, (war auch einer meiner Ansätze), wenn ich das Options-Fenster modal anzeige, dann komme ich nicht mehr auf den Button, der das Fenster erzeugt hat.
Zum weiteren Verständnis noch: das Options-Fenster ist rahmenlos und hat keinen Schließen-Button. D.h. dass ich diese nur wieder durch den besagten Button zuklappen kann oder dadurch, dass der User irgendwo...
Forum: Object-Pascal / Delphi-Language
Delphi
by Roaster,
13. Jul 2009
Hi,
ich versuche derzeit erfolglos mit einem Button auf meinem Haupfenster ein zweites (Options-)Fenster anzeigen zu lassen das später durch einen Klick auf den Button geschlossen werden soll oder wenn der User irgendwo ins Nirwana klickt.
Der zweite Teil war nicht weiter schwer:
procedure TfrmOptions.FormDeactivate(Sender: TObject);
begin
Close;
end;