procedure TMainForm.btnDepartmentSettingClick(Sender: TObject);
begin
if menuPDepartment.Enabled then
menuPDepartmentClick(Sender);
end;procedure TMainForm.menuPDepartmentClick(Sender: TObject);
begin
if frmdep=nil then
frmdep:=Tfrmdep.create(frmdep);
frmdep.ShowModal;
FreeAndNil(frmdep);
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
if frmLogin = nil then
frmLogin := TfrmLogin.Create(nil);
frmLogin.ShowModal;
//if frmLogin.ShowModal = mrCancel then
// Application.Terminate;
end;
以上代码是主窗体的一个按键的,我很奇怪的是
这个子窗体是Udep,而在代码中写的是frmdep;
关于子窗体在主窗体中命名的规则是怎么样的?
谢谢!
uStainfo比如现在这个是单元名,那我怎么命变量名呢?
如
type
TMainForm = class(TForm)
...
...
end;var
MainForm :TMainForm;
menuPDepartment: TMenuItem;
以下是在具体的过程中用到的
frmdep
以下是用这个名命名这个FORM文件的!
uDep
其实我只是想到过程中命名和这个FORM文件命名的关系!
是不是我理解的太简单了,你要看到什么窗体名啊??一个Form,难道你看不到它名字吗?