Eigenes Ereignis/Event in TForm mit Zugriff auf Steuerelemente des Forms

[TUX_der_Pinguin]

Zitat von Fritzew:

ok, wenn ich das richtig verstehe....
1. Du erzeugst deinen Progressdialog und weist ihm einen Event zu.
2. Du rufst den Dialog "Modal" auf
3. Dein Timer feuert, ruft den Event auf.
4 Der Event ändert die properties
5. Der Event schließt den Dialog?

Ganz ehrlich den Flow verstehe ich nicht.

Das mit dem Timer habe ich nur gemacht damit der Dialog auch sichtbar ist, würde ich das Ereignis schon in OnCreate oder OnShow des Dialogs aufrufen wird dieser zwar ausgeführt aber der Anwender sieht davon nichts.

[ConnorMcLeod]

Delphi-Quellcode:

public TfrmProgressDialog.SetProperties(const AFormCaption: string; const ALabel01Caption: string; ...; AProgressMax: integer);
begin
  Self.Caption := AFormCaption;
  ...
end;


with TfrmProgressDialog(Sender) do
begin
  SetProperties('blah', 'ldkf', ..., 100);
end;

aber...

guck mal hier: TPBThreadedSplashscreen
Diese Form hat einen eigenen Thread, d.h. Deine Arbeit kann unabhängig vom Form ablaufen.
Halte ich für eleganter und richtiger

[Hobbycoder]

Und ich würde dieses grauenvolle with weglassen.
Ich bin damit auch so oft auf die Fresse gefallen....gerade beim Debuggen, aber auch beim lesen vom Code weiß man schneller worauf sich z.B. das Close bezieht, wenn man vlt. den oberen Teil der Procedure nicht sehen kann.

Vielleicht so:

Delphi-Quellcode:

procedure TfrmMain.Progress(Sender: TObject);
var
   Idx: Integer;
   ProgressFrm: TForm;
begin
   if Sender is TfrmProgressDialog then
   begin
     ProgressFrm:=(Sender as TfrmProgressDialog);
     ProgressFrm.Caption := 'bla bla';

     ProgressFrm.Label1.Caption := 'ldkfdlkfdo';

     ProgressFrm.ProgressBar1.Min := 0;
     ProgressFrm.ProgressBar1.Max := 100;
     ProgressFrm.ProgressBar1.Step := 1; 
  
     for Idx := 1 to 100 do
     begin
       ProgressFrm.ProgressBar1.StepIt;
       Application.ProcessMessages;
       Sleep(500);
     end; 
     
     ProgressFrm.Close;
    
   end;

end;

[ConnorMcLeod]

Ja, klar. Ich wollte nur so nah am Original bleiben, wie möglich.
Soweit ich informiert bin, macht der Compiler nichts anderes, als im Falle von WITH eben so eine Hilfsvariable anzulegen. Kann man also genausogut gleich selber machen und die Lesbarkeit boosten

[Hobbycoder]

Zitat von ConnorMcLeod:

Ja, klar. Ich wollte nur so nah am Original bleiben, wie möglich.
Soweit ich informiert bin, macht der Compiler nichts anderes, als im Falle von WITH eben so eine Hilfsvariable anzulegen. Kann man also genausogut gleich selber machen und die Lesbarkeit boosten

Du warst damit gar nicht gemeint Das ging eher an TUX.
Aber unabhängig von der Lesbarkeit wird's beim debuggen dann mal richtig interessant. Wenn du dann nämlich Stundenlang nach einem Fehler suchst, den du a) ohne with gar nicht erst gemacht hättest und b) trotz allem dann in wenigen Sekunden gefunden hättest. Ist mir selber schon passiert.

[TUX_der_Pinguin]

Zitat von Hobbycoder:

Zitat von ConnorMcLeod:

Ja, klar. Ich wollte nur so nah am Original bleiben, wie möglich.
Soweit ich informiert bin, macht der Compiler nichts anderes, als im Falle von WITH eben so eine Hilfsvariable anzulegen. Kann man also genausogut gleich selber machen und die Lesbarkeit boosten

Du warst damit gar nicht gemeint Das ging eher an TUX.
Aber unabhängig von der Lesbarkeit wird's beim debuggen dann mal richtig interessant. Wenn du dann nämlich Stundenlang nach einem Fehler suchst, den du a) ohne with gar nicht erst gemacht hättest und b) trotz allem dann in wenigen Sekunden gefunden hättest. Ist mir selber schon passiert.

Ich weiß ich bin auch schon das ein oder andere mal über ein 'with' gestolpert aber den Rest der Zeit sehe ich es eher als Vorteil und nicht als einen Nachteil.

[Aviator]

Hast du mal über Frames nachgedacht? Vorteil ist, dass du dir das Frame nur einmal basteln musst und kannst es dann im ganzen Programm immer wieder verwenden. Die Logik kann komplett im Frame verschwinden. Dann gibst du dem Frame ein paar public Proceduren mit denen du die minimale, maximale und aktuelle Position der ProgressBar setzen kannst und schon bist du fertig.