Fórum ??Desabilitar coluna do dbgrid ao mudar de linha #189326

   DBGrid1.Columns[1].ReadOnly:=True;

   DBGrid1.Columns[1].Visible:=True;

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
   ShowMessage(´mudou registro´);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   case Key of
   VK_UP:   ShowMessage(´seta p/cima´);
   VK_DOWN: ShowMessage(´seta p/baixo´);
   end;
end;

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
   case Button of
   nbfirst:  ShowMessage(´primeiro´);
   nblast:   ShowMessage(´ultimo´);
   end;
end;