home *** CD-ROM | disk | FTP | other *** search
- 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
-