使用類別產生元件的問題 |
|
尚未結案
|
|
sam_000
一般會員   發表：27 回覆：47 積分：14 註冊：2003-09-15 發送簡訊給我 |
各位前輩
下列程式跑起來沒有問題
procedure TForm1.Button1Click(Sender: TObject);
type
TControlClass = class of TControl; var
myClass: TControlClass;
mybutton:Tcontrol;
ref :string;
begin
myclass:=TButton;
mybutton:=myClass.Create(Self);
mybutton.SetBounds(20,20,50,50);
mybutton.Parent:=self;
end; 我想把它轉成下式卻發生錯誤,想請教前輩如何更正?謝謝
begin ref:='tbutton';
myclass:=TControlclass(ref);
mybutton:=myClass.Create(Self);
mybutton.SetBounds(20,20,50,50);
mybutton.Parent:=self;
end;
|
|
carter6
初階會員  發表：53 回覆：108 積分：42 註冊：2002-12-16 發送簡訊給我 |
sam_000 您好 :
您的是
ref : string ;
可是TControlclass裡應是 TPersistentClass
TControlclass(TPersistentClass) ;
才對吧!! var
AClass: TPersistentClass;
myClass: TControlClass;
mybutton:Tcontrol;
begin
AClass:= GetClass('tbutton');
myclass:=TControlclass(AClass);
mybutton:=myClass.Create(Self);
mybutton.SetBounds(20,20,50,50);
mybutton.Parent:=self;
end;
您試試不知道可不可以!!
Carter
|
|
sam_000
一般會員 發表：27 回覆：47 積分：14 註冊：2003-09-15 發送簡訊給我 |
|
|
solnone
中階會員 發表：2 回覆：97 積分：69 註冊：2003-05-06 發送簡訊給我 |
|
|
carter6
初階會員 發表：53 回覆：108 積分：42 註冊：2002-12-16 發送簡訊給我 |
|
|
sam_000
一般會員 發表：27 回覆：47 積分：14 註冊：2003-09-15 發送簡訊給我 |
發表時間：2003-11-12 12:36:20
IP:139.223.xxx.xxx 未訂閱
系統時間：2024-05-18 14:47:26
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |