Сделать форму меньше 112 пикселейDelphi , Программа и Интерфейс , ФормыСделать форму меньше 112 пикселей
Оформил: DeeCo { In order to allow very small windows, you need to override the default behavior for Windows message WM_GETMINMAXINFO. This message is sent to your window by the OS in order to find out the minimum and the maximum allowed window size. You can do this by adding this method procedure to your form: } private procedure GetMinMaxInfo(var Msg: TWMGETMINMAXINFO); message WM_GETMINMAXINFO; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.GetMinMaxInfo(var Msg: TWMGETMINMAXINFO); begin inherited; with Msg.MinMaxInfo^ do begin ptMinTrackSize.X := 0; // min. Width ptMinTrackSize.Y := 0; // min. Height end; end; procedure TForm1.FormCreate(Sender: TObject); begin { no systemmenu } BorderIcons := BorderIcons - [biSystemMenu]; { set the form's width & height } Width := 80; Height := 60; end; Сделать форму меньше 112 пикселей можно, переопределив поведение при отправке Windows-сообщения WM_GETMINMAXINFO и задав минимальные размеры формы в процедуре GetMinMaxInfo. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |