線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1042
推到 Plurk!
推到 Facebook!

Express Editors的元件 使用的問題 及 如何讀取前一個edit的名稱

尚未結案
seedbcc
高階會員


發表:232
回覆:272
積分:105
註冊:2003-12-10

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-05-05 17:17:31 IP:221.169.xxx.xxx 未訂閱
如上圖 小弟對Express Editors的元件不太熟悉 想請教各位 圖中使用了TcxColorCombobox及TcxFontNameCombobox元件 要做的動作,小弟舉一個例 1.點選 頁首中 左 下方的 edit 2.然後 去點選 顏色 字型及大小 的combobox 做變更 希望,程式能夠在變更上述combobox後, 將變更的值,儲入我的陣列,以便存檔時,能寫入table中相對應的欄位 想請問 顏色 字型及大小 的combobox 要如何判斷, 在按這些combobox元件前,所按的edit 以便能 將變更值 存入相對應的陣列 另外一個問題: 做為頁首 的 左 、中、 右 的文字之 顏色、字型的變動 Events 只是不清楚 ,要用哪一個 (是onClick 還是properties內的onchange(但是好像form一打開就會執行??))
seedbcc
高階會員


發表:232
回覆:272
積分:105
註冊:2003-12-10

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-05-06 15:31:15 IP:221.169.xxx.xxx 未訂閱
有人會嗎?
OsX
版主


發表:6
回覆:151
積分:111
註冊:2003-05-03

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-05-06 16:15:22 IP:211.76.xxx.xxx 未訂閱
實在是看不太懂你的問題, 可以描述詳細一點嗎 ?
jumo
一般會員


發表:33
回覆:65
積分:24
註冊:2002-04-17

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-05-06 17:09:41 IP:203.204.xxx.xxx 未訂閱
引言: 1.點選 頁首中 左 下方的 edit 2.然後 去點選 顏色 字型及大小 的combobox 做變更 希望,程式能夠在變更上述combobox後, 將變更的值,儲入我的陣列,以便存檔時,能寫入table中相對應的欄位 想請問 顏色 字型及大小 的combobox 要如何判斷, 在按這些combobox元件前,所按的edit 以便能 將變更值 存入相對應的陣列
Express Editors我也沒用過, 不過您找看看Edit有沒有 onEnter, onExit, 在裡面將Edit的名稱存到一個變數裡面, 這樣應該就可以在後面判斷了, 例如
 
var v_AEdit : String;    procedure TForm1.Edit1Enter(Sender: TObject);
begin
  v_AEdit := TEdit(Sender).Name;
end;
seedbcc
高階會員


發表:232
回覆:272
積分:105
註冊:2003-12-10

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-05-07 00:29:02 IP:211.76.xxx.xxx 未訂閱
我要問的問題有二個 第一: 在頁首那個groupbox內 有三個 edit 可以讓使用者 打文字 而我的db table內每個 edit 分別對應四個欄位 文字、顏色、字型、大小 我想要做的 就是 當我點選 任何一個 edit後 再去 點選 顏色、字型、大小等combobox後, 程式會幫我判斷 我在做 顏色 字型 大小 修改之前 是選哪一個edit 以便存入這個edit相對應的table內欄位 第二: 對Express Editors的元件不太熟悉 它的event事件,哪幾個比較重要 可否幫我解說一下。
speedup
資深會員


發表:19
回覆:259
積分:280
註冊:2003-07-04

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-05-07 10:13:26 IP:61.224.xxx.xxx 未訂閱
按照jumo的作法去做就行了 你先宣告一個Obj變數來記入目前點選到哪個Edit 接著在後續操作中直接對該Obj操作即可
 
 private
   FcurrSelEdit : TcxTextEdit;    ...
//將左中右Edit的Enter事件設成下述 
procedure TForm1.Edit1Enter(Sender: TObject);
begin
  FcurrSelEdit := TcxTextEdit(Sender);
end;    //在後續動作
//直接對 FcurrSelEdit  操作(如改字型...     if Assigned(FCurrSelEdit) then 
  .....        
混心雜欲 棄修身~唉
------
唉~
seedbcc
高階會員


發表:232
回覆:272
積分:105
註冊:2003-12-10

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-05-07 14:17:32 IP:221.169.xxx.xxx 未訂閱
感謝各位的幫忙 jumo 分數給你了
系統時間:2024-06-27 5:24:25
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!