Datensätze in StatusBar anzeigen

[Sharky]

Hai iron,

eine Möglichkeit wäre im AfterScroll Ereigniss deines TClientDataSet den Text in den Panels von der Statusbar zu setzen.
Zum Beispiel so:

Delphi-Quellcode:

procedure TForm1.ClientDataSet1AfterScroll(DataSet: TDataSet);
begin
  if Assigned(DataSet) then
  begin
    with DataSet do
    begin
      StatusBar1.Panels[0].Text := FieldByName('name').AsString;
      StatusBar1.Panels[1].Text := Format('Nummer: %d', [FieldByName('nummer').AsInteger]);
    end;
  end;
end;

Ungetestet und nur so getippt