Steuerelementearray

[Tyrael Y.]

einArray[HierNeZahl] ist jetzt gleichbedeutung mit ButtonX

also

z.B.:

Delphi-Quellcode:

einArray[0].show;

du kannst jetzt auf alle eigenschaften und methoden eines TButton zugreifen

z.B. ebend auch auf show

[Tyrael Y.]

äh sry, TButton hat kein show

der parent muss noch gesetzt werden

Code:

procedure TForm1.FormCreate(Sender: TObject);
var meinObjekt:TButton;
var i : integer;
begin

  SetLength(einArray,9);

  for i := 0 to 8 do
  begin
      meinObjekt := TButton.Create(self);
      einArray[i] := meinObjekt;
      einArray[i].Parent := self;
  end;

end;

[mirko2000]

Verstehe ich das jetzt richtig, dass z. B. einArray[0] jetzt die gleich Eigenschaften und Methoden hat wie wenn ich ein Button auf mein Formular ziehe.

[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]

[Tyrael Y.]

ja,

einArray[0] = Adresse zu einem TButton

z.B.:
Button1 = Adresse zu diesem Button

wenn du jetzt die adresse von Button1 in einaray[0] schreiben würdest, dann

ist Button1 = einArray[0]

[mirko2000]

Es funktioniert jetzt einwandfrei und so wie ich es mir vorgestellt habe!

Danke an alle die mir geholfen haben! :party:

[Tyrael Y.]

Immer gerne :zwinker: