d
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key <> VK_Up) and (key <> VK_DOWN) then begin
if (key = VK_LEFT) then begin
DBGrid1.Perform(WM_HSCROLL, SB_LINELEFT, 0);
DBGrid1.Perform(WM_HSCROLL, SB_ENDSCROLL, 0);
end else if (key = VK_RIGHT) then begin
DBGrid1.Perform(WM_HSCROLL, SB_LINERIGHT, 0);
DBGrid1.Perform(WM_HSCROLL, SB_ENDSCROLL, 0);
end;
abort;
end;
end;
위와 같이 DBGrid의 KeyDown Event에 위의 코드를 넣어 주시시면
됩니다..
끝...
|