Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Jumpy,
9. Dez 2010
Ja. Aber ich hab es innerhalb des try-Blocks gesetzt. Als letzten Versuch hab ich es mal davor gesetzt und auf einmal klappt es. Keine Ahnung warum das einen Unterschied macht.
Wenn einer 'ne Idee hat wieso, her damit, denn ich lerne gerne neues.
Hab jetzt auch wieder die Version genommen, wo nur die ActionList suspended wird.
procedure TSelector.acOpenExecute(Sender: TObject);
begin
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Jumpy,
9. Dez 2010
Genau das macht mich ja auch so stutzig und läßt mich vermuten, das der Versuch mit einem Panel wie von DeddyH vorgeschlagen auch nix bringen wird.
Hab mal einfach nach dem
Quelle.Open;
showmessage('AAAAhhhhrg');
eingebaut.
Und siehe da. Das ganze rumgeklicke wird ignoriert. Ich vermute daher, dass die Klicks in der Botschafterschlange landen, dann geht aber das modale showmessage auf....
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Jumpy,
9. Dez 2010
Erstmal danke für das rege Interesse und
hier mal der momentane Code, der nicht funzt wie gesagt Quelle = TADOQuerry:
procedure TSelector.acOpenExecute(Sender: TObject);
begin
if Quelle.State in then Quelle.Post;
Quelle.Close;
pnltab.Caption:= 'Bitte warten';
self.Repaint;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Jumpy,
9. Dez 2010
Nee das hat schon gepasst, da ich hinterher ja Enabled wieder auf true setze. Aber es hat nix gebracht. Wie zuvor kann man wild auf Buttons klicken, ohne das zunächst was passiert, aber wenn die Querry dann fertig geöffnet ist und ein Ergebnis zurückgebracht hat, passiert alles, was nach drücken der Buttons geschehen sollte.
Was den Eindruck des Absturzes angeht, so ist das ja genrell ein...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Jumpy,
9. Dez 2010
Danke erstmal. Das Problem ist halt, dass es massig andere Buttons auf dem Form gibt, und ich nicht 20 mal ButtonXY.Enabled im Code haben will. Daher mein versuch über die ActionList. Versuch jetzt mal den Vorschlag mit dem Form.Enabled.
Jumpy