請問如何一次去Create多張新的model form在執行其間 |
尚未結案
|
bonjovi999
一般會員 發表:4 回覆:1 積分:1 註冊:2005-08-05 發送簡訊給我 |
各位好﹕
本人有一問題,我在database裡有一個field儲存著每一張form的名字,
現想做一程式讀取field裡面的資料後自動可以根據名字而做出一張modal form來,我曾經試過用用以下方法去做,但會發生'tform and tcomponents not the
same type!'我知tform的ancestors是tcomponents,類型不相同所以出error,但不太明白當中有關原理,請問可否解釋一下?謝謝各位,程式如下 Procedure ...
VAR
exefrom:tform
begin
If Application.FindComponent(FormName) = nil Then
ExeForm:=(TForm(FindComponent('T'+FormName)).Create(Self))
Else
ExeForm:=Application.FindComponent(FormName) ; With ExeForm Do < 這裡便出現錯誤 >
Begin
Try
ShowModal;
finally
Free;
End;
End;
end;
|
G01
高階會員 發表:249 回覆:379 積分:215 註冊:2002-05-21 發送簡訊給我 |
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |