delphi - Delphi:3个工具按钮-3帧=切换

Question

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

谢谢！

Answer 1

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