创建一个 VCL 表单应用程序,在表单上放置一个TBalloonHint
(名称:balloonhintTest)和一个TButton
(名称:btnTest)并编写以下代码:
procedure TForm2.FormCreate(Sender: TObject);
begin
balloonhintTest.HideHint;
balloonhintTest.Style := bhsStandard;
end;
procedure TForm2.btnTestMouseEnter(Sender: TObject);
begin
if not balloonhintTest.ShowingHint then
begin
balloonhintTest.Title := 'My Title';
balloonhintTest.Description := 'MyDescription';
balloonhintTest.ShowHint(Self.ClientToScreen(Point(btnTest.Left + (btnTest.Width div 2), btnTest.Top + btnTest.Height)));
end;
end;
procedure TForm2.btnTestMouseLeave(Sender: TObject);
begin
balloonhintTest.HideHint;
end;
现在运行程序并将鼠标指针悬停在按钮上。
这是窗口位于屏幕上部时的外观:
这就是当窗口位于屏幕下方时的外观:
如您所见-尽管提示坐标始终相同-提示在第一种情况下显示为DOWNWARDS(所需结果),在第二种情况下显示UPWARDS(显然不是所需结果),具体取决于窗口的垂直位置屏幕。
那么在这种情况下,如何始终独立于屏幕位置向下显示气球提示?
(请注意:我对该ShowHint
方法的其他重载不感兴趣 - 我只想知道如何在上述情况下始终向下显示提示,因为这只是更复杂情况的简化场景)。