object MainForm: TMainForm Left = 360 Top = 379 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Start Hidden?' ClientHeight = 175 ClientWidth = 249 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 8 Width = 233 Height = 26 AutoSize = False Caption = 'This demo demonstrates how to determine if the main form should ' + 'be visible at application startup.' WordWrap = True end object Label2: TLabel Left = 8 Top = 42 Width = 233 Height = 39 AutoSize = False Caption = 'Set the checkbox below, then close the app. Next time you start ' + 'the app. it will remember the setting.' WordWrap = True end object Label3: TLabel Left = 8 Top = 90 Width = 233 Height = 39 AutoSize = False Caption = 'Notice that the form'#39's Visible property must be false for this t' + 'o work. You will probably also want to set the tray icon'#39's IconV' + 'isible property to true.' WordWrap = True end object CheckBox1: TCheckBox Left = 8 Top = 148 Width = 133 Height = 17 Caption = '&Start hidden next time' TabOrder = 0 OnClick = CheckBox1Click end object Button1: TButton Left = 164 Top = 142 Width = 75 Height = 25 Caption = 'E&xit' TabOrder = 1 OnClick = Button1Click end object CoolTrayIcon1: TCoolTrayIcon CycleInterval = 0 Hint = 'StartHidden Demo' Icon.Data = {} IconVisible = True IconIndex = 0 OnMouseDown = CoolTrayIcon1MouseDown OnStartup = CoolTrayIcon1Startup Left = 132 Top = 126 end end