if fangtaicx = nil then begin tfangtaicx.Create(self); fangtaicx.show; fangtaicx.Left:=66; fangtaicx.Top:=10; end; 当然,fangtaicx为全局变量
if Assigned(Form1) then Form1.setfocus;
if fangtaicx=nil then fangtaicx:=Tfangtaicx.create(nil); fangtaicx.show; fangtaicx.release; fangtaicx:=nil;
if fangtaicx = nil then begin tfangtaicx.Create(self); fangtaicx.show; fangtaicx.Left:=66; fangtaicx.Top:=10; end else fangtaicx.show;
//聲明 var SYS_WORK_SFORM : TForm; //用以判斷窗體是否運行 //運用 if SYS_WORK_SFORM = nil then begin SYS_WORK_SFORM := TfrmSysWork.Create(Application); SYS_WORK_SFORM.Show; end;
showMessage('已创建');
begin
tfangtaicx.Create(self);
fangtaicx.show;
fangtaicx.Left:=66;
fangtaicx.Top:=10;
end;
当然,fangtaicx为全局变量
Form1.setfocus;
fangtaicx:=Tfangtaicx.create(nil);
fangtaicx.show;
fangtaicx.release;
fangtaicx:=nil;
begin
tfangtaicx.Create(self);
fangtaicx.show;
fangtaicx.Left:=66;
fangtaicx.Top:=10;
end
else fangtaicx.show;
var
SYS_WORK_SFORM : TForm; //用以判斷窗體是否運行
//運用
if SYS_WORK_SFORM = nil then
begin
SYS_WORK_SFORM := TfrmSysWork.Create(Application);
SYS_WORK_SFORM.Show;
end;