Формы нестандартного вида

Code:

unit testmain;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, StdCtrls, Buttons, ShellAPI;

type

TForm1 = class(TForm)

   procedure FormCreate(Sender: TObject);

private

   { Private declarations }

   FOldHeight: Integer;

   procedure WMNCRButtonDown(var Msg: TWMNCRButtonDown);

     message WM_NCRBUTTONDOWN;

public

   { Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

FOldHeight := ClientHeight;

end;

procedure TForm1.WMNCRButtonDown(var Msg: TWMNCRButtonDown);

var

I: Integer;

begin

if (Msg.HitTest = HTCAPTION) then

   if (ClientHeight = 0) then

   begin

     I := 0;

     while (I < FOldHeight) do

     begin

       I := I + 40;

       if (I > FOldHeight) then

         I := FOldHeight;

       ClientHeight := I;

       Application.ProcessMessages;

     end;

   end

   else

   begin

     FOldHeight := ClientHeight;

     I := ClientHeight;

     while (I > 0) do

     begin

       I := I - 40;

       if (I < 0) then

         I := 0;

       ClientHeight := I;

       Application.ProcessMessages;

     end;

   end;

end;

end.