Button mit unterschiedlichen Records als Caption

[alzaimar]

Soetwas selbst zu basteln, sollte doch nicht das Problem sein:
1. Nimm 10 Buttons und schmeiss sie auf das Formular (Name = 'Button1' bis 'Button10')
2. Im OnDataChange-Event der TDataSource folgenden Code:

Delphi-Quellcode:

Procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
  CurrentRecNo, i: Integer;
  button: TButton;

begin
  if (Field = nil) then
    if DataSource1.Tag = 0 then begin
      DataSource1.Tag := 1;
      CurrentRecNo := DataSource1.DataSet.RecNo;
      DataSource1.DataSet.DisableControls;
      try
        for i := 1 to 10 do begin
          button := FndComponent('Button' + IntToStr(i));
          if DataSource1.DataSet.Eof then
            button.Caption := '-'
          else begin
            button.Caption := DataSource1.DataSet['Feldname'];
            DataSource1.DataSet.Next;
          end;
        end;
      finally
        DataSource1.Tag := 0;
        DataSource1.DataSet.RecNo := CurrentRecNo;
        DataSource1.DataSet.EnableControls;
      end;
    end;
end;

Getippt und ungetestet.