Содержание материала

 

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.

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!