又一个旧又常出错的问题:如何算标准的动态建立窗体和用完后释放?

Question

我在project-option里把要动态建立的窗体放在Available forms里,
var
sjztform:Tsjztform;
begin
  sjztform:=Tsjztform.create(application);
  sjztform.Left:=125;
  sjztform.Top:=102;
  sjztform.Tag:=1;
  sjztform.showmodal;
end; 我的sjztform里有DBGrid1,对应DataModule1里的ADOquery1
要sjptform.formshow里
begin
   DataModule1.ADOQuery2.Close;
    DataModule1.ADOQuery2.SQL.Text:='SELECT * FROM sjxx WHERE dqzt='''+'正进行'+''' AND xsdb='''+trim(dlxtform.Edit1.Text)+'''';
    DataModule1.ADOQuery2.Open;
end; 不知何故DBGrid1里的数据总是不显视出来. (DataModule1.DataSource1.DataSet:=DataModule1.ADOQuery1;
  sjztform.DBGrid1.DataSource:=DataModule1.DataSource1;已在窗体里设置);到底点才能算标准的动态建立窗体,用完后释放? 各位朋友一定要帮忙.在线等...

Answer 1

就是这样：
  With TSplashForm.Create(Self) do
    begin
      ...
      ShowModal;
      Free;
    end;

Answer 2

同意樓上的用法但是還有一種是這樣的
aplication(tsjztform,sjztform);
sjztform.showmodal;
sjztform.wight:=*;
sjztform.hight:=*;
sjztform.Left:=125;
sjztform.Top:=102;
其餘的用法好像沒有錯!

Answer 3

至於釋放窗體你只要在sjztform.close事件中
這樣寫
action:=cafree;
這樣就可以了