建立物件時,發生 Control '' has no parent window 錯誤 |
尚未結案
|
xBug
一般會員 發表:27 回覆:17 積分:8 註冊:2003-06-10 發送簡訊給我 |
我想撰寫一個以ToolBar與ToolButton結合的物件,程式碼如下: 當我 Compile 時並沒有任何錯誤訊息,可是當我在 RAD 設計階段中,將該物件拉下,要置於 Form 上時即出現 "Error: Control '' has no parent window.",有人可以幫忙看看問題出在那兒嗎?
unit DBBar; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ToolWin, ComCtrls; Type TDBBtn = (dbFirst, dbPrior, dbNext, dbLast, dbInsert, dbDelete, dbEdit, dbPost, dbSave, dbCancel, dbRefresh); type TDBBar = class(TToolBar) private { Private declarations } protected { Protected declarations } FButtons: array[TDBBtn] of TToolButton; public { Public declarations } procedure InitButtons; constructor Create(AOwner: TComponent); override; destructor Destroy; override; published { Published declarations } end; procedure Register; implementation procedure Register; begin RegisterComponents('ZERO', [TDBBar]); end; { TDBBar } constructor TDBBar.Create(AOwner: TComponent); begin inherited Create(AOwner); InitButtons; end; destructor TDBBar.Destroy; begin inherited Destroy; end; procedure TDBBar.InitButtons; var i: TDBBtn; Btn: TToolButton; begin for i := Low(FButtons) to High(FButtons) do begin Btn := TToolButton.Create(Self); Btn.Parent := Self; FButtons[i] := Btn; end; end; end. |
Rain
資深會員 發表:31 回覆:236 積分:268 註冊:2003-02-17 發送簡訊給我 |
|
ha0009
版主 發表:16 回覆:507 積分:639 註冊:2002-03-16 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |