Delphi World - Уменьшить форму по щелчку правой кнопкой мышки на TitleBar
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Уменьшить форму по щелчку правой кнопкой мышки на TitleBar

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

type
   TForm1 = class(TForm)
   private
     { Private-Deklarationen }
     FOldHeight: Integer;
     procedure WMNCRButtonDown(var Msg: TWMNCRButtonDown); message WM_NCRBUTTONDOWN;
   public
     { Public-Deklarationen }
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.DFM}

 procedure TForm1.WMNCRButtonDown(var Msg: TWMNCRButtonDown);
 begin
   if (Msg.HitTest = HTCAPTION) then
     if (ClientHeight = 0) then
     begin
       ClientHeight := FOldHeight;
       Application.ProcessMessages;
     end
     else
     begin
       FOldHeight   := ClientHeight;
       ClientHeight := 0;
       Application.ProcessMessages;
     end
 end;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования