掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DBGrid内でEnterで移動させたい (ID：28995)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
なんか不細工だなぁ・・・ 他に良い方法あると思います。 TDBGrid.Options の dgEditing = True の場合は DBGrid1KeyPressイベントの記述もいるみたいです。 （TDBGridのTAB移動だからレコード移動で良いんですよね？） procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key = VK_RETURN) then begin Key := VK_TAB; end; if (Key = VK_RETURN) and (Shift = [ssShift]) then begin Key := VK_TAB + VK_SHIFT; end; end; procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if (Key = Char(VK_RETURN)) then begin Key := Char(VK_TAB); end; if (Key = Char(VK_RETURN)) then begin Key := Char(VK_TAB + VK_SHIFT); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.