delphi的tabsheet页头怎样响应鼠标双击事件?

如题,我现在想双击tabsheet的页头显示对话框,
我昨天做的一个是不在tabsheet页头也显示,这样不太好. 我昨天做的一个是不在tabshee