Delphi Tips & Tricks softsale > Delphi Tips & Tricks      

następna rada >
< poprzednia rada

Jak poruszać się w dbgrid za pomocą ENTER ( zamiast TAB)?

Użyj następującego kodu na zdarzeniu OnkeyPress grida: 


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;
.

SOFTSALE - Oprogramowanie i Szkolenia
softsale@softsale.com.pl
03-565 Warszawa , ul. Borzymowska 43 lok. 301C
tel/fax:4084840,0607612428