Message ao final de um Grid ??

Question

Caros amigos Gostaria de saber como fa�o para que quando um ponterio de um grid chega no final avisasse ao usuario !!! Tipo assim o Usuario esta navegando num grid por um bot�o next , e quando chegar ...

Thiago Vidal · Answer

Considerando que voce tem um trio DBGrid1 -> DataSource1 -> ClientDataSet1

Voce pode colocar esta rotina no evento OnDataChange do DataSource

procedure TDTForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  with (Sender as TDataSource) do
    if (ActiveControl = DBGrid1) then
    begin
      if (DataSet.EOF) then
      ShowMessage(�Fim dos Registros�)
      else if (DataSet.BOF) then
      ShowMessage(�In�cio dos Registros�);
    end;
end;

Omar Cury · Answer

madmax, acho que ficaria bem melhor se vc desabilitar o botao (next e �ltimo) toda vez que chegasse ao fim no dbgird.Minha opini�o t�... :wink:...