【结贴】SHOW出窗体**

op+ · 发表于 2008-12-5 16:21:57

如T

lixy · 发表于 2008-12-5 16:37:20

新建一个功能，去掉主窗体。然后重写dorun函数。

procedure TshowGN.DoRun;
var
  tmpform:Tct1;
begin
  inherited;
  tmpform:=tct1.Create(self.Context);
  tmpform.ShowModal;
  tmpform.Free;
  self.Terminate;
end;

让他show是不行的，没地方存这个窗体的对象。showmodel可以。

op+ · 发表于 2008-12-5 16:41:13

哦..了解..3Q,结T..

		自动登录	找回密码
密码			立即注册