Eine Art Semi-ShowModal?

[Photoner]

Evtl. Einen Timer verwenden der mit .OnShow gestartet wird?

Delphi-Quellcode:

procedure TFormNichtModal.FormShow(Sender: TObject);
begin
  MyTimer.Interval := 100; 
  MyTimer.Enabled  := True;
end

Delphi-Quellcode:

procedure TFormNichtModal.MyTimerTimer(Sender: TObject);
begin
 if not FormNichtModal.Showing then begin
   Machdas;
   MyTimer.Enabled := False;
 end;
end;