我有3个组合的工具按钮(一个工具栏)。其中一个总是停机。我有3帧。在按钮之间切换边框的最简单、最正确的方法是什么?
谢谢!
发布于 2011-07-18 07:14:47
正确的方式充其量是没有意义的。许多方法中最简单的方法之一是为分组的按钮设置唯一的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”。
发布于 2011-07-18 07:51:22
如果框架都在屏幕上的相同位置,那么按照Sertac建议的方式进行操作将使在IDE中查看它们在其所有者窗体上的外观变得非常麻烦
我建议您将框架放在页面控件或选项卡控件中。
https://stackoverflow.com/questions/6727000
复制相似问题