unit1.dfm

Floating Window.It is descendant of TCustomPanel. You can: - Drag on its title bar. - Set title ba

object Form1: TForm1
  Left = 240
  Top = 135
  Width = 544
  Height = 375
  ActiveControl = FloatingWindow1
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object chkExpanded: TCheckBox
    Left = 400
    Top = 8
    Width = 97
    Height = 17
    Caption = 'Expanded'
    Checked = True
    State = cbChecked
    TabOrder = 2
    OnClick = chkExpandedClick
  end
  object chkShowButtons: TCheckBox
    Left = 400
    Top = 32
    Width = 97
    Height = 17
    Caption = 'Show Buttons'
    Checked = True
    State = cbChecked
    TabOrder = 3
    OnClick = chkShowButtonsClick
  end
  object chkSizeable: TCheckBox
    Left = 400
    Top = 56
    Width = 97
    Height = 17
    Caption = 'Sizeable'
    Checked = True
    State = cbChecked
    TabOrder = 4
    OnClick = chkSizeableClick
  end
  object cboTitleBar: TComboBox
    Left = 400
    Top = 104
    Width = 113
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 6
    OnClick = cboTitleBarClick
    Items.Strings = (
      'On Top'
      'On Left')
  end
  object chkCtl3D: TCheckBox
    Left = 400
    Top = 80
    Width = 97
    Height = 17
    Caption = 'Ctl3D'
    Checked = True
    State = cbChecked
    TabOrder = 5
    OnClick = chkCtl3DClick
  end
  object FloatingWindow2: TFloatingWindow
    Left = 8
    Top = 112
    Width = 185
    Height = 97
    TitleBarPosition = tbLeft
    Caption = 'Information'
    TabOrder = 1
    object Button2: TButton
      Left = 80
      Top = 64
      Width = 75
      Height = 25
      Caption = 'Button1'
      TabOrder = 0
    end
    object Memo1: TMemo
      Left = 8
      Top = 8
      Width = 145
      Height = 49
      Lines.Strings = (
        'Memo1')
      TabOrder = 1
    end
  end
  object btnShow: TButton
    Left = 400
    Top = 136
    Width = 75
    Height = 25
    Caption = 'Show'
    TabOrder = 7
    OnClick = btnShowClick
  end
  object FloatingWindow1: TFloatingWindow
    Left = 8
    Top = 8
    Width = 185
    Height = 97
    OnExpand = FloatingWindow1Expand
    OnHide = FloatingWindow1Hide
    OnShow = FloatingWindow1Show
    Caption = 'Floating Window'
    TabOrder = 0
    object Edit1: TEdit
      Left = 24
      Top = 8
      Width = 121
      Height = 21
      TabOrder = 0
      Text = 'Edit1'
    end
    object Button1: TButton
      Left = 72
      Top = 40
      Width = 75
      Height = 25
      Caption = 'Button1'
      TabOrder = 1
    end
  end
end