procedure TfmBack.Tr1DblClick(Sender: TObject);
var
i:Integer;
fmBOM:string;
Tfmbom:string;
begin
with ADOQueryt do
begin
close;
sql.Clear;
sql.Text:='select itfm from sysitem where itemna='''+tr1.Selected.Text+'''';
open;
fmBOM:=trim(fieldbyname('itfm').AsString);
Tfmbom:='T'+fmBOM;
end;
for i :=0 to fmMain.MDIChildCount-1 do
if (fmMain.MDIChildren[i].name=fmBOM) then
begin
fmMain.MDIChildren[i].BringToFront;
fmMain.MDIChildren[i].SetFocus;
Exit;
end;
Application.CreateForm(TfmBOM,fmBOM);
fmMain.RzTabControl1.Tabs.Add.Caption:=tr1.Selected.Text;
fmBOM.WindowState:=wsMaximized;
fmBOM.SetFocus;
fmBOM.Show;
end;
fmBOM:是從數據庫中取出的窗體名稱欄位，這樣運錯出錯，這個要怎麼改才行？
uj5u.com熱心網友回復：
Application.CreateForm(TfmBOM,fmBOM);CreateForm的第二個引數是TForm型變數， 不是string
uj5u.com熱心網友回復：
一：用解釋腳本，如：FastScript二：用RTTI
uj5u.com熱心網友回復：
要檢查MID子表單是否已經創建，如果已創建，就顯示，否則需創建。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/90308.html
標籤：非技術區
上一篇：C++程
下一篇：Calendar組件在哪里