德尔福：3个工具按钮 - 3个框架=切换

Question

我有3个分组的工具按钮（工具栏）。其中一个总是失败。我有3帧。更改按钮之间切换帧的最简单方法是什么？

谢谢！

Answer 1

正确的方式充其量是没有意义的。许多人最简单的方法之一就是为分组按钮f.i设置唯一的Tag s。 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'。

Answer 2

如果框架在屏幕上的所有位置都相同，那么按照Sertac建议的方式进行操作会使在IDE中看到 在其所有者表单中看起来非常麻烦< / p>

我建议你把帧放在页面控件或标签控件中。