怪怪的 SetFocus |
缺席
|
blue
中階會員 發表:170 回覆:136 積分:81 註冊:2002-04-15 發送簡訊給我 |
|
Main Chen
高階會員 發表:29 回覆:135 積分:127 註冊:2002-10-07 發送簡訊給我 |
試了一下,確實會錯誤,你可以提報 QC 給 EMBT,或者避開它,換成另外一種寫法。
如果你的目的只是要讓它可以按下 Tab 或 Enter 跳到 Edit3 可以如下寫: procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin case Key of vkReturn, vkTab: Edit3.SetFocus; end; end; |
blue
中階會員 發表:170 回覆:136 積分:81 註冊:2002-04-15 發送簡訊給我 |
Hi,感謝 Main Chen 的指導:
在KeyDown的Tab並無作用(還是到Edit2), 若有TabControl,更是無法在TabControl中的Edits 間以Tab切換(當然是有找到解法,只是抱怨一下), 還有,使用 Edit 也很難使用滑鼠拖拉方式來選取 Edit 中的部份文字.... 感覺上FireMonkey還有一段很長的路要走, 無奈小弟已頭髮剃了一半了(主要是專案要Win & Mac通吃) 謝謝! ===================引 用 Main Chen 文 章=================== 試了一下,確實會錯誤,你可以提報 QC 給 EMBT,或者避開它,換成另外一種寫法。 如果你的目的只是要讓它可以按下 Tab 或 Enter 跳到 Edit3 可以如下寫: procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin case Key of vkReturn, vkTab: Edit3.SetFocus; end; end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |