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





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