Message ao final de um Grid ??

Delphi

08/07/2004

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 no final do grid aparece um message avisando FINAL DOS REGISTROS !!! , ja vi isso mas não sei como fazer alguem poderia me explicar como faz !!!!

Agradeço muito desde já :roll:

Douglas Freire


Madmax

Madmax

Curtidas 0

Respostas

Thiago Vidal

Thiago Vidal

08/07/2004

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;



GOSTEI 0
Omar Cury

Omar Cury

08/07/2004

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:


GOSTEI 0
POSTAR