Auf dynamische Buttons zugreifen

[sniper_w]

Ich würde folgende 2 Zeilen hinzufügen:

Delphi-Quellcode:

   while(z<10) do
   begin
      if (myButton[z] = nil) then
      begin
         myButton[z] := TButton.Create(self);
         with myButton[z] do
         begin
            Parent := myScrollBox[n];
            Caption:='Button '+inttostr(z) ;
            Height:=22;
            Width:=130;
            Left := 10;
            Top :=23;
            Tag := z; // erste
            OnClick := Button1Click; // zweite
         end;
      end;
      inc(z);
   end;

Und dann:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  case TControl(Sender).Tag of
    // hier kannst du anhand des Tag erkennen um welches Button es handelt und entsprechend reagieren
  end;
end;