傳入組件的className後create出組件。 |
|
尚未結案
|
|
Leway
一般會員   發表：43 回覆：71 積分：22 註冊：2003-07-29 發送簡訊給我 |
procedure CreateWinControl(ComponentClass: string);
var
aComponent:TComponent;
begin
if ComponentClass = 'TEdit' then
aComponent:= TEdit.Create(self);
if ComponentClass = 'TLabel' then
aComponent:= TLabel.Create(self);
if ....................... then
...............................;
end;
在procedure中要為每一種組件寫類似這樣的指令if ComponentClass = 'TEdit' then aComponent:= TEdit.Create(self); 很麻煩，而且，如果沒有為某中組件寫這樣的指令，結果是不能create出這種組件。所以，請問有沒有通用的方法來寫這個procedure. =========================
語言是工具，最重要是如何解決問題。
|
|
code6421
版主  發表：43 回覆：223 積分：208 註冊：2002-08-16 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
var
vCtrlClass:TClass;
vCtrl:TComponent;
begin
vCtrlClass := GetClass('TEdit');
vCtrl := vCtrlClass.NewInstance as TComponent;
vCtrl.Create(Self);
InsertControl(vCtrl as TControl);
end; procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterClasses( [TEdit,TButton,TMemo]);
end; //you must call RegisterClasses before create component. Just coding...
Taiwan:http://code6421.ktop.com.tw
China:http://home.hoolee.com/~code6421 發表人 - code6421 於 2003/12/31 19:39:30
------
Just codeing... |
|
Leway
一般會員 發表：43 回覆：71 積分：22 註冊：2003-07-29 發送簡訊給我 |
發表時間：2003-12-31 18:03:35
IP:218.80.xxx.xxx 未訂閱
系統時間：2024-06-27 10:44:55
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |