1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure MakeFormInvisible(Form : TForm);
var
  AControl : TControl;
  A, Margin, X, Y, CtlX, CtlY : Integer;
begin
  Margin := ( Form.Width - Form.ClientWidth ) div 2;
  FullRgn := CreateRectRgn(0, 0, Form.Width, Form.Height);
  X := Margin;
  Y := Form.Height - Form.ClientHeight - Margin;
  ClientRgn := CreateRectRgn( X, Y, X + Form.ClientWidth, Y + Form.ClientHeight );
  CombineRgn( FullRgn, FullRgn, ClientRgn, RGN_DIFF );
  for A := 0 to Form.ControlCount - 1 do begin
    AControl := Form.Controls[A];
    if ( AControl is TWinControl ) or ( AControl is TGraphicControl )
        then with AControl do begin
      if Visible then begin
        CtlX := X + Left;
        CtlY := Y + Top;
        CtlRgn := CreateRectRgn( CtlX, CtlY, CtlX + Width, CtlY + Height );
        CombineRgn( FullRgn, FullRgn, CtlRgn, RGN_OR );
      end;
    end;
  end;
  SetWindowRgn(Form.Handle, FullRgn, TRUE);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure MakeFormVisible(Form : TForm);
begin
  FullRgn := CreateRectRgn(0, 0, Form.Width, Form.Height);
  CombineRgn(FullRgn, FullRgn, FullRgn, RGN_COPY);
  SetWindowRgn(Form.Handle, FullRgn, TRUE);
  DeleteObject(ClientRgn);
  DeleteObject(FullRgn);
  DeleteObject(CtlRgn);
end;