Главная страница | назад





Article #17559: Setting a form's maxwidth in code.

 Question and Answer Database
FAQ2559D.txt Setting a form's maxwidth in code.
Category :Windows API
Platform :All
Product :All 32 bit
Question:
How do I get a Form's width to be less than 120 (approx) pixels?
Answer:
This is controlled and overridden by Windows. Under some versions
of Windows, you may be successful by creating a message handler to
respond to the WM_GETMINMAXINFO message:
Example:
{Place this code in the private section of the Form declaration}
procedure WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo);
message WM_GETMINMAXINFO;
{Place this code in the Form implementation section}
procedure TForm1.WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo);
begin
with message do begin
MinMaxInfo^.ptMaxSize.x := 20;
MinMaxInfo^.ptMaxSize.y := 20;
MinMaxInfo^.ptMinTrackSize.x := 20;
MinMaxInfo^.ptMinTrackSize.y := 20;
end;
end;
7/16/98 4:31:28 PM

Last Modified: 01-SEP-99