Semi-Modalen Dialog erstellen

[BigAl]

Zitat von hoika:

Hallo,
benutze die Suchfunktion des Forums.

https://www.delphipraxis.net/79498-i...showmodal.html

Hast ja recht Habe aber entweder die falschen Suchparameter eingegeben oder war zu dämlich... Damit dieser Thread aber nicht ganz nutzlos bleibt hier die Lösung die ich mir jetzt zusammengesucht habe:

TfrmProgress:

Delphi-Quellcode:

  TfrmProgress = class(TForm)
  private
    FWindowList: Pointer;
  protected
    procedure DoShow; override;
    procedure DoHide; override;
  end;

Und dann implementiert wie folgt:

Delphi-Quellcode:

procedure TfrmProgress.DoShow;
// Make the dialog "semi modal".
begin
  FWindowList := DisableTaskWindows(Application.Handle);
  inherited;
end;

procedure TfrmProgress.DoHide;
// Ensure the application gets back the control...
begin
  inherited;
  if Assigned(FWindowList) then
  begin
    EnableTaskWindows(FWindowList);
    FWindowList := nil;
  end;
end;

Funktioniert hervorragend. Genau was ich wollte.