小弟刚学dephi 遇到一个showmodal的问题,请大家帮帮忙请大家帮我解决;

Question

procedure TMainform.employeemanageClick(Sender: TObject); //员工管理
begin
application.CreateForm(Temployeemanage,employeemanage);
employeemanage.ShowModal;
employeemanage.Free;
end;
在这里显示
[错误] mainface.pas(97) :Undeclared identifier:'ShowModal' 的错
但我把他改为employeemanage.Show就不报错;;
但我要求的结果是showmodal,请问一下这是怎么个问题

Answer 1

procedure TMainform.employeemanageClick(Sender: TObject); application.CreateForm(Temployeemanage,employeemanage);看上去好象是你在主窗口上有一个叫employeemanage的Button, 然后又把它的引用指向新建的窗体了?
那么employeemanage的接口仍然是TButton的, 所以没有ShowModal方法

Answer 2

ShowModal不能用在本窗体呀用在其它的窗体

Answer 3

你的按钮与窗口名是同样的名称。
按钮当然没有showModal啦

Answer 4

procedure TMainform.employeemanageClick(Sender: TObject); //员工管理
begin
application.Create(self);
employeemanage.ShowModal;
employeemanage.Free;
end;
不行吗?

Answer 5

错了
例子
procedure TMainform.employeemanageClick(Sender: TObject); //员工管理
begin
Form1:=TForm1.Create(self);
Form1.ShowModal;
Form1.Free;
end;

Answer 6

procedure TMainform.employeemanageClick(Sender: TObject); //员工管理
begin
Form1:=TForm1.Create(self);
Form1.ShowModal;
//Form1.Free;删除这名看行不行
end;

Answer 7

Form1.Free;
这句不能删,会有导致内存泄漏问题

Answer 8

如果employeemanage这变量定义在mainface.pas,可以下面这样加前缀避开名字冲突.procedure TMainform.employeemanageClick(Sender: TObject); //员工管理
begin
application.CreateForm(Temployeemanage,mainface.employeemanage);
mainface.employeemanage.ShowModal;
mainface.employeemanage.Free;
end;