求助delphi一个问题，，请帮忙．

cqlhc 发布于 2010-09-14 17:24， 1068 次点击

我想让对像当成变量来操作，例如，

str:='button1';
str:=str+'.visible:=false';
怎么来运行str,得到button1的visible为fasle;
小弟初学delphi．主要是想重数据库中获取权限，并设置相应的按钮．

请大虾指教.

9 回复

mohao1632010-09-14 19:09

不知道你什么意思，你可以定义一个事件。
如：
procedure myprocedure;
begin
form1.Button1.Visible := true;
end;

然后在你想要触发的事件中调用myprocedure就可以了，比如Button事件，timer事件

makebest2010-09-14 19:57

还是不要这样投机取巧了, 乖乘用 if else 吧.

cqlhc2010-09-14 20:09

谢谢楼上二位，不过我想理论上应该是有这种功能的吧，例如sqlserver exec(@string),,,不知delphi中是否有这样的函数或过程．继续求教中......

makebest2010-09-14 22:03

类似宏的用法肯定是不行的, 因为 DELPHI 是完全编译的, 这个可以派上用处:
uses TypInfo;
procedure TForm1.Button1Click(Sender: TObject);
var
    c : TControl;
begin
    c := FindChildControl('Button1');
    if c<>nil then
    begin
        SetPropValue(c, 'visible', 'False');
    end;
end;

cqlhc2010-09-15 12:23

谢谢makebest,,此方法可行．同时引出以下两个问题
1.tcontrol只对button 如果是toolbutton,TMenuItem 不知用什么类；
2.button1变量不是写成'form1.button1'加上窗体名称报内存错误
网上查找到以下方法
if (FindComponent('button1') is Tbutton) then TMenuItem(FindComponent('button1')).Visible:=false;
好像也是可行了，同样不能加窗体名称．
不知可有更好的方法．．

makebest2010-09-15 12:46

在数据库中保存 button1, visible, false 之类的东东来控制权限, 这样的设计简直是不可思议, 完全没有条理.
虽然可以实现, 但还是劝你还是不要这样做
(Application.FindComponent('FrmMain') as TForm).FindComponent('button1')

mohao1632010-09-15 21:54

同意楼上的说法，你可以在数据库中给不同用户设置不同的值，如1，2，3，4......
然后在程序中读取的1的可以看到什么控件，读到2的看到什么控件

cqlhc2010-09-17 09:13

谢谢楼上各位，问题已基本解决．结贴了

#10

s9123601012010-11-03 17:28

强哈