前輩您好, 請問DBGrid輸入問題 ?? |
|
答題得分者是：hagar
|
|
Ethan
版主   發表：101 回覆：170 積分：78 註冊：2006-07-05 發送簡訊給我 |
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
if DBGrid1.Columns.Grid.SelectedIndex < DBGrid1.Columns.Count - 1 then
DBGrid1.Columns[DBGrid1.Columns.grid.SelectedIndex 1].Field.FocusControl
else
begin
Table1.Next;
DBGrid1.Columns[0].field.FocusControl;
end;
end;
end;
--
Everything I say is a lie.
|
|
T.J.B
版主 發表：29 回覆：532 積分：497 註冊：2002-08-14 發送簡訊給我 |
引言: 前輩您好!又來打擾了!! 請問DBGrid輸入資料時後,Tab可換成用ENTER鍵來切換到下一格嗎? 有人做過嗎?假設有5個欄位 procedure TfrmM0Check.GridRightKeyPress(Sender: TObject; var Key: Char); begin if ( Grid1.SelectedIndex = 0 ) and ( key = #13 ) then Grid1.SelectedIndex := 1 else if ( Grid1.SelectedIndex = 1 ) and ( key = #13 ) then Grid1.SelectedIndex := 2 else if ( Grid1.SelectedIndex = 2 ) and ( key = #13 ) then Grid1.SelectedIndex := 3 else if ( Grid1.SelectedIndex = 3 ) and ( key = #13 ) then Grid1.SelectedIndex := 4 else if ( Grid1.SelectedIndex = 4 ) and ( key = #13 ) then begin Query1.Next ; Grid1.SelectedIndex := 0 ; if Query1.Eof then begin Query1.first; Grid1.SelectedIndex := 0 ; end; end; end;
------
天行健 君子當自強不息~~@.@ |
發表時間：2002-09-25 17:06:00
IP:61.218.xxx.xxx 未訂閱
系統時間：2025-02-01 17:55:37
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |