Eine Art Semi-ShowModal?

[sh17]

Hallo,

wenn man ShowModal mit einem Dialog macht, ist z.B. das Hauptmenü nicht mehr zu bedienen. Klar.

Code:

procedure OnClick;
begin
  MachDies;
  Form.ShowModal;
  MachDas;
end;

Wenn ich das ganze durch Show ersetze, ist klar, rauscht er sofort durch MachDas;

Was wäre die eleganteste Variante, um das ShowModal durch Show zu ersetzen (um im Hintergrund das Hauptmenü nutzen zu können) und doch eine Art ShowModal zu haben, die wartet und dann MachDas; aufruft?

Threads, Monitor,... Muss ja sicher im MainThread laufen

[Daniel]

Eine Art OnClose-Handler als anonyme Methode? So ähnlich, wie es auf den mobilen Plattform für die MessageBox umgesetzt wurde. Das Form selbst würde dann mittels .Show() angezeigt und hätte je nach Bedarf sowas wie StayOnTop aktiv.

[mm1256]

Und warum nicht einfach "MachDas" in eine separate Unit auslagern, und dann aus der "modalen" Form - die ganz normal mit Show angezeigt wird - aufrufen?

[sh17]

Zitat von mm1256:

Und warum nicht einfach "MachDas" in eine separate Unit auslagern, und dann aus der "modalen" Form - die ganz normal mit Show angezeigt wird - aufrufen?

Hmm, ja, ne. Ist mir jetzt zu unflexibel. Mal schauen, wenn es gar nicht anders geht.

[Mavarik]

Zitat von sh17:

Zitat von mm1256:

Und warum nicht einfach "MachDas" in eine separate Unit auslagern, und dann aus der "modalen" Form - die ganz normal mit Show angezeigt wird - aufrufen?

Hmm, ja, ne. Ist mir jetzt zu unflexibel. Mal schauen, wenn es gar nicht anders geht.

oder Du nimmst einfach den Vorschlag aus #2

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