傳入組件的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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |