Alle Fenster minimieren!!!?!?

[Christof]

Das hat nicht funktioniert.
Die Methode wird nicht berüht wenn das Form2 minimiert wird.

Wie gesagt das Form2 soll minmiert werden und das Form1 (Hauptformular, ist auf Status Hide gesetzt) soll auch minmiert werden. Dann müsste es gehen denke ich. Es gibt nur keine Ereignis (zB. OnMinimize) das ich beim Form2 benutzen könnte???!??

Eine andere Idee?

Zitat von scp:

Das mit dem über der Taskleiste kann ich auch nicht verstehen.
Aber du könntest es so oder ähnlich machen:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
    procedure WMSIZE (var Message: TWMSIZE); message WM_SIZE;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.WMSIZE (var Message: TWMSIZE);
begin
  If Assigned(Form2) then
    begin
      If (Message.SizeType = SIZE_MINIMIZED) then
        Form2.Hide
      else
      If (Message.SizeType = SIZE_RESTORED) then
        Form2.Show;
    end;

  inherited;
end;