Steuerelementearray

[Sharky]

Hai mirko2000,

guckst Du:

Delphi-Quellcode:

var
  Form1             : TForm1;
  einArray          : array of TButton;
implementation

{$R *.dfm}

procedure TForm1.MyButtonClick(Sender: TObject);
begin
 ShowMessage ('Button ' + (Sender AS TButton).Caption);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i                 : integer;
begin
  SetLength(einArray, 9);
  for i := 0 to 8 do
    begin
      einArray[i] := TButton.Create(self);
      with einArray[i] do
        begin
          caption := IntToStr (i);
          left := (i * 55) + 80;
          top := 10;
          height := 30;
          width := 50;
          parent := self;
          visible := True;
          OnClick := myButtonClick;          
        end;
    end;
end;

[EDIT]Ich habe den Code eben noch erweitert. Jetzt hat jeder Button die selbe OnCLICK Funktion.[/EDIT]