Eine Art Semi-ShowModal?

[idefix2]

Delphi-Quellcode:

class TSemimodalForm (TForm);
  private
    finished: boolean;   

  public 
    procedure WaitForMe;
    procedure show; override;
    procedure close; override;
  
  end;  

implementation

procedure TSemimodalForm.WaitForMe;
begin
repeat sleep(200); 
       application.processmessages; // bin nicht sicher, ob das hier nötig ist
       until finished;
end;

procedure TSemimodalForm.show;     
begin 
inherited;
finished:=false;
end;  

procedure TSemimodalForm.close;
inherited;
finished:=true;
end;

Die Forms, bei denen du das brauchst (hier Form2), von TSemiModalForm ableiten
und aufrufen mit

Delphi-Quellcode:

  Form2.Show;
  Form2.WaitForMe;