我在这个函数中创建了frmTaskTip窗体,但是执行完frmTaskTip := TfrmTaskTip.Create(Application)这句就直接进入frmTaskTip 的onshow事件,急死我了
procedure TfrmMain.ShowTaskTips;
begin
if not Assigned(frmTaskTip) then
frmTaskTip := TfrmTaskTip.Create(Application);
frmTaskTip.FDM := FDM;
frmTaskTip.FUser := FUser;
//frmTaskTip.ShowTips;
frmTaskTip.Show;
end
procedure TfrmMain.ShowTaskTips;
begin
if not Assigned(frmTaskTip) then
frmTaskTip := TfrmTaskTip.Create(Application);
frmTaskTip.FDM := FDM;
frmTaskTip.FUser := FUser;
//frmTaskTip.ShowTips;
frmTaskTip.Show;
end
你在createform后传入了变量值,希望在showform中调用传入的变量,但对于mdi子窗体来说,这样是不行的
也就是说mdi子窗体的showform事件是个摆设解决方法是,把你目的的onshow事件中的代码移到一个自定义函数中
createform
传入参数
调用自定义函数