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.