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

如何在DBGrid欄位自動切換輸出法

答題得分者是:christie
mcho_60461
一般會員


發表:16
回覆:23
積分:7
註冊:2006-07-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-10-26 13:43:20 IP:220.137.xxx.xxx 訂閱
我是用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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-10-26 14:41:40 IP:203.73.xxx.xxx 訂閱
我的方法是
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?
系統時間:2024-05-06 23:54:17
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!