7
Caption = 'Test Control Hint'
11
Font.Color = clWindowText
13
Font.Name = 'MS Sans Serif'
16
object ListBox1: TListBox
24
object ButtonClear: TButton
30
OnClick = ButtonClearClick
33
object GroupBoxNoShowHint: TGroupBox
39
Caption = 'ShowHint = False'
43
object ButtonShowHintNoParent1: TButton
49
Caption = 'ShowHint = True Parent = False'
50
ParentShowHint = False
54
object Button1: TButton
60
Caption = 'ShowHint = False Parent = False'
61
ParentShowHint = False
64
object Button2: TButton
69
Caption = 'ShowHint = True Parent = True'
73
object ButtonNoShowHintShowParent: TButton
79
Caption = 'ShowHint = False Parent = True'
82
object Button8: TButton
87
Caption = 'ShowHint = True Parent = False / Hint = '''''
88
ParentShowHint = False
93
object GroupBoxShowHint: TGroupBox
99
Caption = 'ShowHint = True'
102
ParentShowHint = False
105
object Button3: TButton
111
Caption = 'ShowHint = True Parent = False'
112
ParentShowHint = False
116
object Button4: TButton
122
Caption = 'ShowHint = False Parent = False'
123
ParentShowHint = False
126
object Button5: TButton
132
Caption = 'ShowHint = True Parent = True'
135
object Button6: TButton
141
Caption = 'ShowHint = False Parent = True'
143
ParentShowHint = False
146
object Button7: TButton
151
Caption = 'ShowHint = True Parent = True / Hint = '''''
155
object CheckBox1: TCheckBox
160
Caption = 'GroupBox With Empty Hint'
161
OnChange = CheckBox1Change