Delphi Tips & Tricks softsale > Delphi Tips & Tricks      

< poprzednia rada następna rada >

Zapobieganie automatycznemu wyświetlaniu nowego wiersza w DBGrid

Jeżeli naciśniemy klawisz strzałka w dół będąc na ostatnim wierszu w DBGrid automatycznie wyświetlony zostanie nowy pusty wiersz. Można temu zapobiec na dwa sposoby. Albo w obsłudze zdarzenia BeforeInsert dla TTable dopisać Abort lub w procedurze obsługi zdarzenia OnKeyDown dla DBGrida tak jak poniżej: 

Procedure TForm1DBGrid1KeyDown( Sender : TObject;
                var Key: Word; Shift: TShiftState);

begin
if (Key=VK_DOWN) then
   begin
      Table1.DisableControls;
      Table1.Next;

      if Table1.EOF then
         Key:=0
      else
         Table1.Prior;
         Table1.EnableControls;
   end;
end;

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