如何在DBGrid欄位自動切換輸出法 |
答題得分者是:christie
|
mcho_60461
一般會員 發表:16 回覆:23 積分:7 註冊:2006-07-31 發送簡訊給我 |
我是用Delphi 7資料庫是SQL server 2000目前於Form OnCreat 加入功能如下
procedure TEditMain.FormCreate(Sender: TObject); begin ApplchnaDbe.ImeName :='中文 (繁體) - 注音'; CommodChnadbe.ImeName := '中文 (繁體) - 注音'; end; 以上功能是用在DBEdit可正常運作,但在DBGrid欄位時如下 DBGrid1.Columns[3].ImeName := '中文 (繁體) - 注音'; 可以自動切換輸出法,但到下一欄無法回覆英文輸出法, 請教各位大大!可有解決的辦法?
------
mcho |
christie
資深會員 發表:30 回覆:299 積分:475 註冊:2005-03-25 發送簡訊給我 |
我的方法是
type TDBGD = class(TDBGrid); procedure TForm1.DBGrid1ColExit(Sender: TObject); begin // DBGrid畫面 切換 回 英數輸入法 if TDBGD(DBGrid1).Col= 4 then begin keybd_event(VK_LControl,0, 0, 0); keybd_event(ord(' '), 0, 0, 0); keybd_event(ord(' '), 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_LControl,0, KEYEVENTF_KEYUP, 0); end; end;
------
What do we live for if not to make life less difficult for each other? |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |