New Tip - ...make a TForm smaller than 112 Pixels ? - sdcnewtip

New Tip - ...make a TForm smaller than 112 Pixels ?

From: "SwissDelphiCenter.ch" <newsletter@xxxxxxxxxxxxxxxxxxxx>
To: sdcnewtip@xxxxxxxxxxxxx
Date: Mon, 11 Mar 2002 13:01:20 +0100
* SwissDelphiCenter new Tip newsletter
* www.swissdelphicenter.ch
*
* To unsubscribe send a mail to sdcnewtip-request@xxxxxxxxxxxxx with the
* subject unsubscribe


Hallo,

Folgender neuer Tip ist neu auf SwissDelphiCenter verfügbar:

Besuchen Sie die Programmier Tips unter 
http://www.swissdelphicenter.ch/de/tipsindex.php


Bewerten Sie diesen Tip nach Schwierigkeitsgrad, Nützlichkeit und Gesamthaft auf
http://www.swissdelphicenter.ch/de/showcode.php?id=1063



Autor:
Thomas Stutz <tom@xxxxxxxxxxxxxxxxxxxx>



-------------
...die Breite einer TForm kleiner als 112 Pixels machen ?
-------------
Kategorie: VCL



{
  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;





Best Regards
SwissDelphiCenter Team
www.swissdelphicenter.ch
[automatisch generierte EMail]


----------------------------------------------------
ENGLISH NEWSLETTER
----------------------------------------------------

Hi,

This new tip is new available on SwissDelphiCenter.ch:

Visit the programming tips at http://www.swissdelphicenter.ch/en/tipsindex.php


Rate this tip after skill, useful and overall at
http://www.swissdelphicenter.ch/en/showcode.php?id=1063



Author:
Thomas Stutz <tom@xxxxxxxxxxxxxxxxxxxx>



-------------
...make a TForm smaller than 112 Pixels ?
-------------
Category: VCL



{
  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;




Best Regards
SwissDelphiCenter Team
www.swissdelphicenter.ch
[automatic generated EMail]
New Tip - ...make a TForm smaller than 112 Pixels ?

Other related posts:
