Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Уменьшить форму по щелчку правой кнопкой мышки на TitleBar

Delphi , Программа и Интерфейс , Заголовок формы

Уменьшить форму по щелчку правой кнопкой мышки на 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;

Статья Уменьшить форму по щелчку правой кнопкой мышки на TitleBar раздела Программа и Интерфейс Заголовок формы может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Заголовок формы ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 15:35:06/0.033128976821899/0