Komponentenname aus Liste laden und dieses objekt verändern.

[TwoFace]

Servus

Wenn du die Images erzeugst, fügst du den Komponenten einfach noch weitere Eigenschaften und Ereignisse hinzu.

Hier mal ein Beispiel zum Erzeugen von Buttons

Delphi-Quellcode:

var
  UsrButton : Tbutton;
  a : integer;
  x : integer;
begin
  x := 20;
  for a := 1 to 4 do
  begin
    UsrButton := TButton.Create(self);
    // Dem Button einen Namen geben
    UsrButton.Name := 'User_Button_'+inttostr(a);
    // und anzeigen...
    UsrButton.Parent := Form1;
    UsrButton.Visible := true;
    UsrButton.Top := x;
    x := x + UsrButton.Height+5;
    UsrButton.Caption := inttostr(a);
    // Jetzt noch ein Ereignis hinzufügen:
    UsrButton.OnClick := UsrButtonClick;
  end;

Natürlich muß die Funktion UsrButtonClick noch deklariert werden.

Delphi-Quellcode:

procedure TForm1.UsrButtonClick(Sender:TObject);
var
  capt : string;
begin
  if Sender is TButton then
     capt := TButton(Sender).Caption;
  showmessage('Sie haben Button mit der Aufschrift '+capt+' gedrückt');
end;