当前位置：文江博客话题详情

Delphi：3 个工具按钮 - 3 个框架 = 切换

发布于 2024-11-24 19:08:02 字数 79 浏览 1 评论 0原文

我有 3 个分组的工具按钮（工具栏）。其中之一总是处于低位。我有3帧。更改按钮之间切换的框架的最简单且正确的方法是什么？

谢谢！

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

‘画卷フ 2024-12-01 19:08:03

正确的方法充其量是没有意义的。最简单的方法之一是为分组按钮设置唯一的Tag，fi 0, 1, 2，然后将所有三个按钮的“OnClick”设置为同一个处理程序并显示一个根据单击的按钮的标签显示框架并隐藏其他框架：

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  Frame1.Hide; // will return immediately if already hidden
  Frame2.Hide;
  Frame3.Hide;
  case TToolButton(Sender).Tag of
    0: Frame1.Show;
    1: Frame2.Show;
    2: Frame3.Show;
  end;
end;

这是假设您已经在设计时将框架放在表单上。不要忘记将按钮的 Grouped 属性及其 Style 设置为“tbsCheck”。

The right way is moot at best. One of the easiest ways of many can be to set unique Tags for the grouped buttons, f.i. 0, 1, 2, then set all of the three button's 'OnClick' to the same handler and show one of your frames according to the tag of the clicked button and hide the others:

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  Frame1.Hide; // will return immediately if already hidden
  Frame2.Hide;
  Frame3.Hide;
  case TToolButton(Sender).Tag of
    0: Frame1.Show;
    1: Frame2.Show;
    2: Frame3.Show;
  end;
end;

This is assuming you've already put the frames on your form at design time. Don't forget setting the Grouped property of the buttons and their Styles to 'tbsCheck'.

回复收藏 0 原文