Self welche Unit ?

[HomerGER]

nein kein erfolg
wenn ich es of show stelle kann man die andere forn nch anklicken
bei modal dann nicht mehr
ABER
er flacktert wie verrückt (sleep) er zeigt nix an nur die form


so sieht jetzt meine Procedure aus

Code:

//******************************************************************************
//Global
//ProgressBar starten
Procedure ProgressBar_GU(meldung1_s, meldung2_s, icon_s : String; start_i, end_i, ist_i : Integer);
var 
pb_f : TProgressBar_Form;
begin
  pb_f := TProgressBar_Form.Create(nil);
  try 
    ProgressBar_Form.Enabled := False;
    pb_f.ShowModal;  /////////////////////////////////////oder show
    while pb_f.Visible do
    begin
        //sleep(200);

        //Wenn ProgressBar nicht Sichbar dann initialisieren
        if (ProgressBar_Form.Panel1.Visible = False) then
        begin
            ProgressBar_Form.Label1.Caption := '';
            ProgressBar_Form.Label2.Caption := '';
            ProgressBar_Form.Image1.Picture := NIL;
            ProgressBar_Form.Panel1.Visible := True;
        end;

        //Nur wenn Label noch leer, dann erst füllen
        if ((ProgressBar_Form.Label1.Caption = '') AND
            (ProgressBar_Form.Label2.Caption = '')) then
        begin
            ProgressBar_Form.Label1.Caption := Meldung_Lesen_GU(meldung1_s);
            ProgressBar_Form.Label2.Caption := Meldung_Lesen_GU(meldung2_s);
        end;

        //Nur wenn Image noch leer, dann erst füllen
        if (ProgressBar_Form.Image1.Picture.Icon.Empty = True) then
        begin
            ProgressBar_Form.Image1.Picture.Icon := Icon_Lesen_GU(icon_s);
        end;

        //ProgressBar initialiesieren
        ProgressBar_Form.ProgressBar.MinValue := start_i;
        ProgressBar_Form.ProgressBar.MaxValue := end_i;

        //ProgressBar hochzählen
        ProgressBar_Form.ProgressBar.Progress := ist_i;

        if (end_i >= ist_i)  then
        begin
            pb_f.Close;
        end;
        Application.ProcessMessages;
    end; 
  finally 
    FreeAndNil(pb_f);
    ProgressBar_Form.Enabled := True;
  end; 
end;

bei modal nehme ich das fenster bei option bei automatisch raus - dann kommt aber fehler