mainformunit.xfm

East make Tray Icon in delphi

object MainForm: TMainForm
  Left = 320
  Top = 233
  Width = 507
  Height = 454
  ActiveControl = PageControl1
  Caption = 'Embedded Forms Demo'
  Color = clButton
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'Tahoma'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 40
  ParentFont = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  TextWidth = 6
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 507
    Height = 454
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Example 1'
      object Label1: TLabel
        Left = 0
        Top = 0
        Width = 499
        Height = 16
        Align = alTop
        Alignment = taCenter
        AutoSize = False
        Caption = 'Shared Embedded Form'
        Color = clText
        Font.Color = clBase
        Font.Height = 11
        Font.Name = 'Tahoma'
        Font.Pitch = fpVariable
        Font.Style = []
        Font.Weight = 40
        ParentColor = False
        ParentFont = False
        Layout = tlCenter
      end
      object JvEmbeddedFormPanel1: TJvEmbeddedFormPanel
        Left = 0
        Top = 16
        Width = 499
        Height = 408
        AlwaysVisible = False
        FormLink = FirstEmbeddedForm.JvEmbeddedFormLink1
        Align = alClient
        Color = 12508350
        ParentColor = False
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
      end
      object btnDock: TButton
        Left = 360
        Top = 344
        Width = 107
        Height = 25
        Caption = 'Show Stand-Alone'
        TabOrder = 1
        OnClick = btnDockClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Example 2'
      ImageIndex = 1
      object Label4: TLabel
        Left = 0
        Top = 0
        Width = 499
        Height = 16
        Align = alTop
        Alignment = taCenter
        AutoSize = False
        Caption = 'Shared Embedded Form'
        Color = clText
        Font.Color = clBase
        Font.Height = 11
        Font.Name = 'Tahoma'
        Font.Pitch = fpVariable
        Font.Style = []
        Font.Weight = 40
        ParentColor = False
        ParentFont = False
        Layout = tlCenter
      end
      object JvEmbeddedFormPanel2: TJvEmbeddedFormPanel
        Left = 0
        Top = 16
        Width = 499
        Height = 408
        AlwaysVisible = False
        FormLink = FirstEmbeddedForm.JvEmbeddedFormLink1
        Align = alClient
        Color = 12508350
        ParentColor = False
        TabOrder = 0
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Example 3'
      ImageIndex = 2
      object Label3: TLabel
        Left = 0
        Top = 0
        Width = 499
        Height = 16
        Align = alTop
        Alignment = taCenter
        AutoSize = False
        Caption = 'New Instance Embedded Form (sharing the deeply embedded form)'
        Color = clText
        Font.Color = clBase
        Font.Height = 11
        Font.Name = 'Tahoma'
        Font.Pitch = fpVariable
        Font.Style = []
        Font.Weight = 40
        ParentColor = False
        ParentFont = False
        Layout = tlCenter
      end
      object JvEmbeddedInstanceFormPanel1: TJvEmbeddedInstanceFormPanel
        Left = 0
        Top = 16
        Width = 499
        Height = 408
        AlwaysVisible = False
        FormLink = FirstEmbeddedForm.JvEmbeddedFormLink1
        Align = alClient
        Color = 12508350
        ParentColor = False
        TabOrder = 0
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'How it works'
      ImageIndex = 3
      object Memo1: TMemo
        Left = 8
        Top = 8
        Width = 481
        Height = 390
        Anchors = [akLeft, akTop, akRight, akBottom]
        Color = clText
        Font.Color = clBase
        Font.Height = 11
        Font.Name = 'Tahoma'
        Font.Pitch = fpVariable
        Font.Style = []
        Font.Weight = 40
        Lines.Strings = (
          
            'To use these components, you need to perform the following steps' +
            ':'
          '1. Your project must contain more than one form'
          '2. Forms must be auto-created to set up the link at design-time'
          
            '3. Drop a TJvEmbeddedFormLink component on each form that should' +
            ' be embedded in another form'
          
            '4. On each form that should embed another form, drop a TJvEmbedd' +
            'edFormPanel or a TJvEmbeddedInstanceFormPanel component'
          
            '5. Add the form to embed to the current forms uses clause (or se' +
            'lect File|Use Unit... from the Delphi menu)'
          
            '6. In each TJvEmbedded(Instance)FormPanel, set the FormLink prop' +
            'erty to point to the appropriate TJvEmbeddedFormLink component'
          '7. Run the program!')
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 0
        WordWrap = False
      end
    end
  end
end