Уменьшить форму по щелчку правой кнопкой мышки на TitleBarDelphi , Программа и Интерфейс , Заголовок формыУменьшить форму по щелчку правой кнопкой мышки на TitleBar
Оформил: DeeCo 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. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Заголовок формы ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |