Control the size of the form with Delphi

zhaozj2021-02-11  166

Control the size of the form with Delphi

Http://www.tongyi.net Source: China Computer Education News Click: 735

In the software we use, some windows only account for a small part of the screen, then how is it implemented! Please see the following example: 1. Plus the following line program in the form: Procedure WmgetMaxInfo; Message WM_GETMAXINFO; 2, in the declaration section plus the following liner: Procedure TFORM1.WMMAXINFO (Var Message : TwmgetminMaxinfo; begin with message.minMaxinfo do begin ptmaxsize.x: = 400; // maximize width PTMAXSIZE.Y: = 400; // maximize the high level ptmaxposition.x: = 50; // maximize the left Corner horizontal coordinate ptmaxposition.y: = 50; // Maximize longitudinal width; message.Result: = 0; // Tell Windows you have changed the maximum and minimize information. Inherited;

转载请注明原文地址:https://www.9cbs.com/read-5461.html

New Post(0)