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

請問如何使用ActiveControl來取得元件資料

答題得分者是:hagar
skurama
中階會員


發表:88
回覆:127
積分:73
註冊:2002-07-22

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-10-31 09:09:20 IP:61.219.xxx.xxx 未訂閱
我目前想用ActiveControl來取得元件名稱或 當為資料感知元件時可以取得其DataField 可是我不知道要如何取得目前ActiveControl是哪一個元件 ex: if (ActiveControl.??? is TDBEdit) then (ActiveControl.??? as TDBEdit).datafield := 'employeeno'; or if (ActiveControl.??? as TDBEdit).Name = 'dbedit1' then ...................... 請問要如何捉到!? ---------------- 平身進退如殘竹, 一睨人才到處是, 獨被蒼天橫冷劍, 何生英雄來殘我。 ----------------
------
----------------
初出芧房程設師,
左鍵右鼠寫程式,
日扣夜寫眼框溼,
望能早成系分師。
----------------
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-10-31 09:34:58 IP:202.39.xxx.xxx 未訂閱
1.(ActiveControl as TWinControl).Name; 2.if (ActiveControl is TDBEdit) then     (ActiveControl as TDBEdit).DataField := ...;    -- Everything I say is a lie.
jieshu
版主


發表:42
回覆:894
積分:745
註冊:2002-04-15

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-10-31 09:48:58 IP:203.204.xxx.xxx 未訂閱
引言: 我目前想用ActiveControl來取得元件名稱或 當為資料感知元件時可以取得其DataField 可是我不知道要如何取得目前ActiveControl是哪一個元件 ex: if (ActiveControl.??? is TDBEdit) then (ActiveControl.??? as TDBEdit).datafield := 'employeeno'; or if (ActiveControl.??? as TDBEdit).Name = 'dbedit1' then ...................... 請問要如何捉到!? ---------------- 平身進退如殘竹, 一睨人才到處是, 獨被蒼天橫冷劍, 何生英雄來殘我。 ----------------
if GetPropValue(ActiveControl, 'Name') = 'DBEdit1' then if GetPropValue(ActiveControl, 'DataField') = 'employeeno' then 記得要uses TypInfo。
人生有夢,逐夢而行。 人若為善,福雖未至,禍已遠離。 人若為惡,禍雖未至,福已遠離。 http://www.taconet.com.tw/jieshu/
------
人生有夢,逐夢而行
人若為善,福雖未至,禍已遠離
人若為惡,禍雖未至,福已遠離
http://www.taconet.com.tw/jieshu/
系統時間:2024-04-27 23:14:21
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!