自訂物件問題? |
尚未結案
|
JuliusChen
一般會員 發表:13 回覆:8 積分:4 註冊:2005-06-29 發送簡訊給我 |
請教各位前輩:
我有段程式碼如下:
constructor TSearchText.Create(Aowner: TComponent);
begin
inherited Create(AOwner);
//繼承原有的建構子 LblVisible := True ;
//動態建構 Edit
FEdit :=Tedit.Create(Self);
FEdit.Parent:=Self;
FEdit.Height:=22;
FEdit.Width:=100; //動態建構 Button
FButton:=TButton.Create(Self);
FButton.Parent:=Self;
FButton.Top:=FEdit.Top;
FButton.Left:=FEdit.Left FEdit.Width;
FButton.Width:=40;
FButton.Caption :='搜尋'; //動態建構 Label
FLabel:=TLabel.Create(Self);
FLabel.Parent:=Self;
FLabel.Left:=FEdit.Left FEdit.Width FButton.Width;
Flabel.top:=Fedit.top;
FLabel.Height:=FEdit.Height;
FLabel.Width:=140;
FLabel.Color:=clYellow;
FLabel.AutoSize:=False;
FLabel.Visible:=LblVisible; //動態建構 DBLookupListBox
FDBLookupComboBox:=TDBLookupComboBox.Create(Self);
//FDBLookupComboBox.Parent:=TWinControl(AOwner);
//FDBLookupComboBox.Parent:=self;
FDBLookupComboBox.Enabled:=False;
FDBLookupComboBox.Left:=FEdit.Left FEdit.Width FButton.Width FLabel.Width;
FDBLookupComboBox.top:=Fedit.top;
FDBLookupComboBox.Height:=FEdit.Height;
FDBLookupComboBox.Width:=140;
FDBLookupComboBox.Visible:=True; //元件
Width:=FEdit.Width FLabel.Width FButton.Width 10; //元件的寬度
Height:=FLabel.Height 5; //元件的高度
ButtonOnClick:=dispose; //事件內容
TextOnChange:=TextKey;
DBLCBOnExit:=DBLCBClick; end; 在關於 DBLookupcomboBox 部份.
我如果使用 FDBLookupComboBox.Parent:=self; 新增物件時會有
Control '' has no parent window error . 如果使用
FDBLookupComboBox.Parent:=TWinControl(AOwner);
他又不會在我定位的地方顯示. 如果不加這一行,就看不到它顯示了..
我想要讓FDBLookupComboBox 顯示在 FButton 後面,
不知有何解? 非常感謝!! 發表人 - juliuschen 於 2005/10/14 16:49:21
|
pcplayer99
尊榮會員 發表:146 回覆:790 積分:632 註冊:2003-01-21 發送簡訊給我 |
|
JuliusChen
一般會員 發表:13 回覆:8 積分:4 註冊:2005-06-29 發送簡訊給我 |
|
StrongLemon
高階會員 發表:10 回覆:166 積分:105 註冊:2004-04-18 發送簡訊給我 |
|
japhenchen
高階會員 發表:51 回覆:444 積分:184 註冊:2003-07-23 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |