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

[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;