object Form1: TForm1 Left = 200 Top = 114 AutoScroll = False Caption = 'Message Map' ClientHeight = 319 ClientWidth = 342 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 35 Top = 176 Width = 50 Height = 19 Caption = 'Width:' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 35 Top = 208 Width = 56 Height = 19 Caption = 'Height:' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 112 Top = 176 Width = 27 Height = 19 Caption = '350' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 112 Top = 208 Width = 27 Height = 19 Caption = '350' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Memo1: TMemo Left = 18 Top = 24 Width = 305 Height = 121 Lines.Strings = ( 'This example uses the message map macros defined in ' 'VCL\SYSDEFS.H to trap the WM_GETMINMAXINFO ' 'message. Look at the TForm1 class definition in MAINFORM.H ' 'for the message map. The WM_GETMINMAXINFO is mapped ' 'to the RestrictSize() function, which forces the Width and ' 'Height of the form to remain between 300 and 400.') ReadOnly = True TabOrder = 0 end end