برای استفاده از Enter بجای Tab می تونی از قطعه کد زیر استفاده کنی:
procedure TForm1.DBGrid1KeyPress (Sender: TObject; var Key: Char);
begin
If Key = #13 Then Begin
If HiWord(GetKeyState(VK_SHIFT)) <> 0 then begin
with (Sender as TDBGrid) do
if selectedindex > 0 then
selectedindex := selectedindex - 1
else begin
DataSource.DataSet.Prior;
selectedindex := fieldcount - 1;
end;
end else begin
with (Sender as TDBGrid) do
if selectedindex < (fieldcount - 1) then
selectedindex := selectedindex + 1
else begin
DataSource.DataSet.Next;
selectedindex := 0;
end;
end;
Key := #0
end;
end;
about.delphi.com
برای چک کردن صحت مقدار وارد شده در هر فیلد هم می تونی از رویداد OnColExit استفاده کنی.
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول