如何取得目前游標所所停留的Edit物件,並使用該物件的屬性及事件? |
答題得分者是:jow
|
wwwbbs
初階會員 發表:41 回覆:59 積分:25 註冊:2003-05-23 發送簡訊給我 |
如題,不知這樣的表達是否正確,請各位大大不要見怪,詳述如下:
[code delphi] procedure TfmMain.DBEdit4KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin Case key of VK_F3: begin DBEdit4.SelLength:= 0; DBEdit4.SelText:= 'aaa'; end; VK_F4: begin DBEdit4.SelLength:= 0; DBEdit4.SelText:= 'bbb'; end; end; end;[/code] 想把Case Of 這一段寫成一個Procedure,這樣不管是在DBEdit1、DBEdit2、DBEdit3....只要在觸發KeyDown的Event下執行該Procedure,不知這樣的想法是否可行?該如何將DBEdit4轉換成一個變數,也就是紅色字部分會更換為目前的DBEdit物件名稱? DBEdit4.SelLength:= 0; DBEdit4.SelText:= 'bbb'; 編輯記錄
wwwbbs 重新編輯於 2007-11-28 14:26:26, 註解 無‧
|
Coffee
版主 發表:31 回覆:878 積分:561 註冊:2006-11-15 發送簡訊給我 |
|
jow
尊榮會員 發表:66 回覆:751 積分:1253 註冊:2002-03-13 發送簡訊給我 |
將要以同樣方式處理的TDBEdit的OnKeyDown指定成DBEdit4KeyDown
ex. DBEdit4.OnKeyDown := DBEdit4KeyDown; [code delphi] procedure TfmMain.DBEdit4KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var e: TDBEdit; begin if Sender is TDBEdit then begin E := TDBEdit(Sender); Case key of VK_F3: begin e.SelLength:= 0; e.SelText:= 'aaa'; end; VK_F4: begin e.SelLength:= 0; e.SelText:= 'bbb'; end; end; end; end; [/code]
編輯記錄
jow 重新編輯於 2007-11-28 15:18:07, 註解 無‧
|
wwwbbs
初階會員 發表:41 回覆:59 積分:25 註冊:2003-05-23 發送簡訊給我 |
|
jow
尊榮會員 發表:66 回覆:751 積分:1253 註冊:2002-03-13 發送簡訊給我 |
|
wwwbbs
初階會員 發表:41 回覆:59 積分:25 註冊:2003-05-23 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |