Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alfold,
11. Mär 2011
Ok, sehr simples Beispiel. (nicht getetstet kein Delphi zur Hand)
procedure TForm1.HoleDaten1Click(Sender: TObject);
var
i: Integer;
begin
if connect then//DBConnect
begin
try
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alfold,
11. Mär 2011
Ich sehe hier aber nur den Vorteil!
Ich bleibe in Main habe dort die ganze kontrolle und muss mich nicht damit rumärgern wenn im Showmodal evtl noch was passiert :wink:
Auch wenn es nur einfache Bordmittel sind, sind diese manchmal efficienter als konstrukte die bei mir zu hause super funcen, aber wehe ich komm auf einer anderen Maschine und ein anderer benutzt dieses Prog.
Ich rede also...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alfold,
11. Mär 2011
Da das Daten holen sicherlich in einer schleife läuft bis alle Daten da sind, hilft auch bringtofront um TformProgess ständig oben zu haben!
Da brauche ich kein ShowModal.
Gruss alfold
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alfold,
11. Mär 2011
Ne der Timer nicht!
Daten da holen wo ich sie brauche in Main! TFormprogress nur als Anzeige!
fertig!
Schon spare ich mir das ganze konstrukt ein!
Gruss alfold
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alfold,
11. Mär 2011
Und nun? Wenn er beim einlesen der Daten evtl noch ein Try except block drin hat(?) oder es generell zur Unterbrechung kommt steht seine TFormProgress da und er kann nur noch eins machen strg+alt+del um sein Prog abzuschiessen. Oder mann macht nun noch zusätzliches rein um auch noch dieses abzufangen damit er wieder an seine MainForm kommt!
Das mag bei Ihm ja alles gehen. Wenn es dann aber auf...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alfold,
10. Mär 2011
War das nicht schon geklärt!? Im OnActivate.
Nun fehlte ihm doch blos, wo er close reinschreiben soll wenn er mit allem fertig ist!
Habs mit einem timer ausprobiert und fertig!
Alles andere sehe ich als overhead an.
Etwa so: Wenn ich fertig bin schick mir ne message das ich mich beenden kann, weil close im onActivate nicht geht!
Und über die anderen Vorschläge wurde ja schon...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alfold,
10. Mär 2011
Ich kann immer noch nicht verstehen warum man es manchmal kompliziert macht wenn es auch simple gehen kann!
Ich gehe mal davon aus das DeineProgress Anzeige korrekt funktioniert in bezug Deiner Datenanforderung. So wie Du es oben beschrieben hast.
Leg Dir in Deiner TFormProgress ein timer mit rein, frage dort ab ob Progress.Position = 100 ist , wenn ja then Close. Schon ist Dein ganzes...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alfold,
10. Mär 2011
@Bummi
es geht ihm nicht darum das er aus der Form1 die Form2 closen tut.
Form2.Schowmodal soll sich nach abarbeitung aller Aufgaben selbst schliessen!
Gruss alfold
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alfold,
10. Mär 2011
@ himitsu
Hab ich doch auch geschrieben :zwinker:
Nur nicht so schön formuliert :P :thumb:
:dancer::dancer2:
alfold
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alfold,
10. Mär 2011
Und was spricht dagegen die einfachste Möglichkeit einzusetzen, als der Versuch zusätzlich konstrukte zu etablieren und die Kontrolle damit aus der Hand zu geben, in der Hoffnung die neue Form = Showmodal wird schon alles richtig machen!
Gruss alfold
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by alfold,
10. Mär 2011
steht alles hier: http://www.delphi-treff.de/tipps/komponenten/tform/ereignisreihenfolge-beim-anzeigen-eines-formulars/
Das Formular wird das erste mal nach dem Ereignis OnShow sichtbar und damit auch ready. Vorrausgesetzt man führt keine langen Berechnungen oder andere Dinge durch, die das Anzeigen verzögern!
Gruss alfold