Question

delphi7 仅知道窗体的名称,如何动态创建以个按钮以后,再用动态创建的按钮把窗体打开?

能否实现对于窗体的动态管理，窗体代码写好以后，讲窗体名称保存到数据库中，然后通过访问数据库和相应的用户权限，动态创建出按钮，并且相应的按钮点击可以出现相应的窗体，不知道这样的功能能否直接实现出来？
此问题已经解决，通过在main窗体注册需要创建的类，用findclass可以实现

Answer 1

应该可以。
窗体名称是指窗体类的类名称，还是窗体类生成的对象名称？
如果是前者，需要在按钮事件下，动态创建该窗体类的对象。
如果是后者，只需在之前隐藏该窗体，然后在按钮事件下显示出该窗体即可。
（不知道你为什么会有这样一个需求。。。）

追问

这个是为了实现动态管理模块以及模块的访问权限功能

Answer 2

假设你的窗体form1 在form2上动态创建button
先要在form2添加一个按钮事件
procedure Buttonclick(Sender: TObject);
begin
form1.show
end
然后创建Button给OnClick赋值就行
button1:= TButton.Create(Self);
button1.OnClick = ButtonClick;

Answer 3

你可以动态创建,例在Form1窗体里动态创建铵钮:
var
button:tbutton;
begin
button:=tbutton.create(self);
button.text:=
button.left
button.top.....
button.parater:=form1;
end;

追问

动态创建按钮我知道，但是我动态创建的按钮的onclick过程还必须能显示相应的窗体，这个就有点难了，窗体只有实例的名称被存放在数据库中

追答

打开相应的窗体，你这个窗体的模板是不是一样，如果是一样?你新建一样模板，向里面传值就可以了，如果不一样:
比如在第一个窗体中调用每二个,主为第一个,第二个设为动态创建
Uses Unit2; //引用单元文件
procedure TForm1.Button1Click(Sender: TObject);beginform2:=TForm2.Create(Application); //创建窗体
form2.name:=....form2.Show; //显示窗体end;end.