全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1373
推到 Plurk!
推到 Facebook!

owner問題

尚未結案
cyl
中階會員


發表:163
回覆:171
積分:66
註冊:2002-07-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-02-10 13:45:49 IP:61.218.xxx.xxx 未訂閱
請問我在dbedit的keydown中寫 if (TComponent(Sender).Owner is TPanel) or (Sender is TForm) then begin ...... 我有兩個dbedit各放在groupbox,panel 分別觸發不同的keydown dbedit1是觸發form上的onkeydown,dbedit2則是觸發自己的onkeydown 所以我用 if (TComponent(Sender).Owner is TPanel) or (Sender is TForm) then begin ...... 做為判斷,但是dbedit2的確一直觸發到form的onkeydown, dbedit2是放在groupbox上,而且sender是dbedit,但是為什麼我寫的判斷式無效??
cyl
中階會員


發表:163
回覆:171
積分:66
註冊:2002-07-11

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-02-10 14:03:43 IP:61.218.xxx.xxx 未訂閱
引言: 請問我在dbedit的keydown中寫 if (Sender is TForm ) or (TComponent(Sender).Parent = Panel1)
Dear Cmf前輩 : 你回答的答案好像根本就compiler不過,請問你是否有試過?? 我認為owner應該也沒錯,因為dbedit的owner是panel沒錯, 只是不明白為何會錯??
cyl
中階會員


發表:163
回覆:171
積分:66
註冊:2002-07-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-02-10 14:12:40 IP:61.218.xxx.xxx 未訂閱
引言: if (Sender is TForm ) or (dbedit(Sender).Parent = Panel1)
依照owner的定義,dbedit的owner應該是panel沒錯, 所以我覺得我的寫法,跟你的寫法的意思應該一樣, 但是都還是會觸發到form的onkeydown事件,才會執行到本身的onkeydown ,有何辦法??
cyl
中階會員


發表:163
回覆:171
積分:66
註冊:2002-07-11

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-02-10 14:20:30 IP:61.218.xxx.xxx 未訂閱
引言: Form1.KeyPreview:=false; if (Sender is TForm ) or (Sender = dbedit1) 發表人 - cmf 於 2003/02/10 14:19:21
這樣不行啦,把sender給寫死了,我有很多個dbedit,不就累死, 請問沒有更聰明的方法嗎??
sryang
尊榮會員


發表:39
回覆:762
積分:920
註冊:2002-06-27

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-02-11 22:39:11 IP:61.224.xxx.xxx 未訂閱
引言:
引言: if (Sender is TForm ) or (dbedit(Sender).Parent = Panel1)
依照owner的定義,dbedit的owner應該是panel沒錯, 所以我覺得我的寫法,跟你的寫法的意思應該一樣, 但是都還是會觸發到form的onkeydown事件,才會執行到本身的onkeydown ,有何辦法??
錯了,dbEdit 的 owner 是 form,任何在 IDE 環境中貼到 form 上的元件,owner 都是 form (Runtime 自己 create 的可以不是 form) 請看: TForm1 = class(TForm) DBEdit1: TDBEdit; // 難道 owner 是其他的物件嗎? Label1: TLabel; Panel1: TPanel; .... protected .... end; 如果這個 DBEdit 的 Parent 是一個 Panel,表示這個 DBEdit 會出現在這個 Panel 的 Client area 中 妳可能把 owner 和 parent 搞混了 加油喔,喵~
------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-02-12 08:58:24 IP:210.243.xxx.xxx 未訂閱
還有一個方法,參考看看,希望能幫得上忙. 假設你的dbedit1命名為ed1,dbedit2為ed2,form name為fm1 要找出ed1可以使用 fm1.findcomponent('ed1') 找出來後再轉型 tdbedit(fm1.findcomponent('ed1')) 如果要用資料庫欄位名稱來找,步驟如下: 1.掃描所有在form上的控制項. 2.引用typinfo,寫一個hasprop的function,傳入tcomponent 用來判斷這個控制項是否具有datasource的屬性. 3.掃描完所有的控制項找出具有datasource屬性的後, 再過濾對應所要欄位的資料感知元件.
系統時間:2024-05-04 16:39:13
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!