ShowModal-Fesnter -> Programm minimieren

[marabu]

Hallo Urba,

bei mir funktioniert das wie gewünscht:

Delphi-Quellcode:

type
  TModalForm = class(TForm)
  private
    procedure WMSysCommand(var Message: TMessage);
      message WM_SYSCOMMAND;
  end;

var
  ModalForm: TModalForm;

implementation

{$R *.dfm}

procedure TModalForm.WMSysCommand(var Message: TMessage);
begin
  if Message.wParam = SC_MINIMIZE then begin
    Message.Result := 0;
    Application.Minimize;
  end else
    inherited;
end;

Grüße vom marabu