在DELPHI中有N个控件,不如有6个BUTTON,如何没次只能显示一个BUTTON,让其他的BUTTON隐藏呢?
也就是用到BUTTON1,其他都隐藏,谢谢
也就是用到BUTTON1,其他都隐藏,谢谢
解决方案 »
- 请问如何用代码创建adoquery的参数名称?
- 初手请教,fastreport控件 在线等候,急、、、
- 用DELPHI控制WINDOWS的服务启动停止
- 怎样实现在dbgrid1里,选择几条记录,在dbgrid2上显示出来呢?
- ACCESS问题和转换日期类型问题
- 1000分求救,请“斑竹”和各位“Delphi高手”入内, 提供类似该问题精彩控件下载网址者,也有分哦!
- dxDBgrid多选,删除每条选中记录
- 请问TreeView1控件htNoWhere属性总是提示出错?
- 请问哪儿有Delphi6的补丁二下载?高分,但要保证能下!
- 关于gifimage控件的安装问题
- 请高手推荐几本delphi7下网络编程方面的书。
- 我还想问个问题,cxGrid新增一行,如果没有数据集打开就不能输入内容,怎么解决?
如:
button1.visible:=True;
button2.visible:=False;
2 要显示的 visible:=true
Shift: TShiftState);
var i:integer;
begin
for i:=0 to self.ComponentCount-1 do
if self.Components[i] is TButton then
begin
if Pos(IntToStr(Key-48),Components[i].Name)>0 then
TButton(Components[i]).Enabled:=False
else
TButton(Components[i]).Enabled:=True;
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.KeyPreview:=True;
end;
if Pos(IntToStr(Key-48),Components[i].Name)>0 then
TButton(Components[i]).Visible:=True
else
TButton(Components[i]).Visible:=False;