Delphi 7 中的按钮通知

Question

我搜索了许多论坛和许多网站，但没有找到所需的解决方案。我需要显示按钮的通知数量。当表单加载时。如果通知有一百个按钮旁边应为 100。如果没有任何内容，则不应显示任何通知。

请向我建议所需的解决方案。

提前致谢。

他们要求与 IOS4 图标类似的功能。

Answer 1

如果您不介意为此使用组件而不是自己制作组件，那么有一个组件可以满足您的需要。它将显示状态，看起来就像您在图像链接中显示的那样。

您可以看到此页面 此处

不过它不是免费的。

Answer 2

在 iOS 4 中，有带有通知的图标（用于程序启动），但没有按钮（我认为），所以这并不完全相同，...但也许您可以创建一个自定义按钮（继承自 TButton）并使用类似的东西一个 onPaint 事件（抱歉，这太像 dotnet 风格了，...不知道在 delphi 中如何调用它）来将此“通知”绘制到按钮，就像在 TCanvas 中所做的那样。

Answer 3

我认为您可以使用 TBalloonHint 组件。例如，要显示通知，

procedure TForm1.FormCreate(Sender: TObject);
var
  point : TPoint;
begin
  point.X := sb1.Left;
  point.Y := sb1.Top;
  BalloonHint1.Delay := 100;
  //BalloonHint1.Description := 'This is your Notification!';
  BalloonHint1.HideAfter := -1;
  BalloonHint1.Style := bhsBalloon;
  BalloonHint1.Title := '2';
  sb1.ParentShowHint := False;
  BalloonHint1.ShowHint(point);
end;

要隐藏通知，

procedure TForm1.sb1Click(Sender: TObject);
begin
  BalloonHint1.HideHint;
end;

将如上图所示

如果要显示图像，可以使用 BalloonHint1.Images 属性。

Answer 4

您可以使用 TPaintBox 并直接绘制到其 Canvas 属性。在我看来，TCanvas 有许多方法可以使这个任务变得相当简单。只需单独存储背景图像（可能在 TImage 中），将其复制到画布（使用 OnPaint 事件中的 Draw 方法），然后绘制圆圈（Ellipse 方法）和最后的数字（TextOut 或 TextRect）。您还可以使用 TPaintBox 的 OnClick 事件来管理“按钮单击”操作。