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;