Alle Fenster minimieren!!!?!?

[Christof]

Hallo,

ich habe ein Form1 das Hauptformular ist, ein Form2 das von dem Hauptformular aufgerufen wird.
Wenn ich jetzt das Form2 minimiere, dann legt sich dsa Form2 ÜBER die Taskleiste und nicht in Taskleiste.

Wie kann ich es machen, das wenn ich Form2 minimiere Form1 auch minimiert wird (ich denke das ist das Problem)?

Wenn ich dann das Programm wieder von der Taskleiste aus maximiere sollte auch Form2 angezeigt werden?



Gruss

Christof

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

[Christof]

Das versuch ich mal.

Danke für die schnelle Antwort!

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

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;

[scp]

Achso, ich habe da was vertauscht. Ich dachte, das Form2 minimiert wird, wenn Form1 minimiert wurde.

Du musst meinen Code nur in Form2 einsetzten und alle Bezeichner Form2 / Form1 einfach vertauschen.

Das hier ist quasi eine OnMinimize Funktion.

[Christof]

Zitat:

Zitat von scp

Achso, ich habe da was vertauscht. Ich dachte, das Form2 minimiert wird, wenn Form1 minimiert wurde.

Du musst meinen Code nur in Form2 einsetzten und alle Bezeichner Form2 / Form1 einfach vertauschen.

Das hier ist quasi eine OnMinimize Funktion.

Das habe ich versucht. Allerdings kommen da Windows Schutzverletzungen.

[scp]

So, habs jetzt mal in einem Projekt zusammengefasst, siehe Anhang.

Das "Feintuning" musste halt selbst übernehmen, aber klappen tut es jetzt schon ganz gut, Schutzverletzungen tauchen auch keine auf.