Dynamisch Erstellter Button - NAME

[thomasschaf]

Hallo,

habe jetzt dank Hilfe hier im Forum, es geschafft einem dynamisch erstellten Button ein On...-Event zuzuweisen.
(http://www.delphipraxis.net/162254-b...vents-wie.html)

Jetzt möchte ich mehrere Buttons erstellen.

Diese sollen jetzt am besten ein "NAME" haben, damit ich sie ansteuern kann.

Wie krieg ich das hin`?

[Bernhard Geyer]

Dynamisch erstellt Controls brauchen keinen "Namen". Du kannst Sie entweder mittels lokaler Variable referenzieren oder falls es mehrer gleichgartete Controls sind über ein Array oder Liste. Das Namens-Property ist nur für das DFM-Streaming relevant damit beim einlesen der DFM beim Programmablauf klar ist welche DFM-"Variable" zu welcher realen Formularvariable gemappt werden soll.

[hans ditter]

Tja, also wenns viele Buttons werden sollen, dann stimme ich Bernhard zu. Ansonsten kannst du über die Referenzvariable den Namen zuweisen:

Delphi-Quellcode:

var
  MeinButton: TButton;
begin
  MeinButton := TButton.Create(self);
  MeinButton.Name := 'DasIstMeinButton';
end;

So sollte das funktionieren. Bei vielen dynamisch erstellten Buttons solltest du die aber wirklich lieber über ein Array oder eine Liste verwalten.

LG; hans ditter

[thomasschaf]

Ok, aber wie würde das mit den Arrays gehen ?

Also ich würde dann so was in der Art machen:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  a: TButton;
  i: Integer;
begin
  for i:=1 to 100 do begin

  a     := TButton.Create(self);
  a.Parent := Form1;
  a.Visible := True;
  a.Top := 50*i+10;
  a.Left := 10;
  a.Width := 100;
  a.Height := 45;
  a.Caption := 'Der '+inttostr(i)+'. Button!';

  end;
end;

Aber wie meint ihr das mit dem Array ?

Danke!

[himitsu]

Delphi-Quellcode:

var
  a: TButton;

Variable für eine Komponente ... wie würde man da wohl ein Array reinbauen?
array of ... + SetLength
oder array[1..100] of ... .
oder eine TObjectList

[hans ditter]

Hey Thomas!
Ich bin mir nicht ganz sicher, aber so wie du das gemacht hast, würde es wohl sowieso nicht funktionieren, da du dann 100 Buttons hast, aber nur einer davon durch die Variable ansprechbar ist.

Mit dem Array würde es dann, wie Himitsu schon sagte, so gehen:

Delphi-Quellcode:

var
  MyButtons: array[1..100] of TButton;
begin
  for i:= 0 to 100 do
  begin
    MyButtons[i] := TButton.Create;
    MyButtons[i].Left := 100;
    {etc. blabla}
  end;
end;

Über TObjectList kannst du dich auch im Netz informieren... einfach mal bei Google 'delphi tobjectlist' eingeben und schon solltest du was finden!