Po opětovném kliknutí

se okno opět objeví v plné velikosti. S použitím předchozích tipů o animaci oken při jejich zobrazení si můžete vylepšit i tento příklad a dosáhnout tak opravdového vyrolování nahoru.
Určitým omezením tohoto příkladu je použití pouze na okna typu bsSizeable a bsDialog.
private
{ Private declarations }
PuvodniVyska : Integer;
procedure WMNCRButtonDown(var Msg : TWMNCRButtonDown); message WM_NCRBUTTONDOWN;

.
.
.

procedure TForm1.WMNCRButtonDown(var Msg : TWMNCRButtonDown);
begin
if (Msg.HitTest = HTCAPTION) then
if (ClientHeight = 0) then
begin
ClientHeight := PuvodniVyska;
Application.ProcessMessages;
end
else
begin
PuvodniVyska := ClientHeight;
ClientHeight := 0;
Application.ProcessMessages;
end
end;