我有一个包含以下组件的表单: ATPageControl
包含一个TTabSheet
,包含一个TEdit
。
我希望当我将鼠标悬停在 pagecontrol 选项卡上时显示提示“Hello”,而当我将鼠标悬停在 TEdit 上时不显示提示。
有PageControl
,hint= "Hello"
和showhint = true
. 这按预期工作。
有TEdit
、showhint = false
和是空的parentshowhint = false
。hint
但是,当我将鼠标悬停在 TEdit 上时,我仍然会收到“Hello”提示。我怎样才能阻止这个?
这是.dfm,如果您有兴趣。
object Form65: TForm65
Left = 0
Top = 0
Caption = 'Form65'
ClientHeight = 258
ClientWidth = 290
OldCreateOrder = False
ShowHint = True
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 290
Height = 258
Hint = 'Bar'
ActivePage = TabSheet1
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'TabSheet1'
object Edit3: TEdit
Left = 72
Top = 67
Width = 121
Height = 21
ParentShowHint = False
ShowHint = False
TabOrder = 0
Text = 'tab1'
end
end
end
end