tag:blogger.com,1999:blog-5776980471135706903.post5593428248174119481..comments2023-07-29T21:06:48.066+07:00Comments on http://delphigurus.blogspot.com: Merubah Enter Menjadi TabUnknownnoreply@blogger.comBlogger1125tag:blogger.com,1999:blog-5776980471135706903.post-50328080894832536872010-09-06T15:58:23.729+07:002010-09-06T15:58:23.729+07:00untuk dbggrid :
procedure TForm1.DBGrid1KeyPress ...untuk dbggrid :<br /><br />procedure TForm1.DBGrid1KeyPress (Sender: TObject; var Key: Char) ;<br />begin<br /> If Key = #13 Then Begin<br /> If HiWord(GetKeyState(VK_SHIFT)) <> 0 then begin<br /> with (Sender as TDBGrid) do<br /> if selectedindex > 0 then<br /> selectedindex := selectedindex - 1<br /> else begin<br /> DataSource.DataSet.Prior;<br /> selectedindex := fieldcount - 1;<br /> end;<br /> end else begin<br /> with (Sender as TDBGrid) do<br /> if selectedindex < (fieldcount - 1) then<br /> selectedindex := selectedindex + 1<br /> else begin<br /> DataSource.DataSet.Next;<br /> selectedindex := 0;<br /> end;<br /> end;<br /> Key := #0<br /> end;<br />end;ibrahimnoreply@blogger.com