Über leiste minimieren

[alcaeus]

Der Code ist gut, allerdings funktioniert er nicht mehr einwandfrei, wenn du die Größe des Formulars änderst. Deshalb könntest du auch folgendes verwenden:

Delphi-Quellcode:

procedure TForm1.WMNclButtonDblClk(var msg: TMessage);
begin
  if ClientHeight > 0 then 
  begin
    Tag := ClientHeight;
    ClientHeight:= 0;
  end 
  else 
    ClientHeight:= Tag;
end;

In den Routinen für Form1 brauchst du das Form1. nicht explizit zu schreiben, der Compiler erledigt das für dich.