Einzelnen Beitrag anzeigen

bluescreen25

Registriert seit: 27. Nov 2005
Ort: Geldern
229 Beiträge
 
Delphi 7 Enterprise
 
#7

Re: dynamische buttonerzeugung zur laufzeit

  Alt 26. Jan 2009, 14:41
Bin mir noch nicht ganz sicher was du genau willst, aber hier mal ein Bsp:
Warum willst du die Buttons nicht direkt an ihren Platz setzen ?

Delphi-Quellcode:
var
  Form1: TForm1;
  ObjektButton : TObjectList;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var newButton: TButton;
    Index : Integer;
begin
  ObjektButton := TObjectList.Create(true);

  for Index := 0 to 10 do
  begin
  newButton := TButton.Create(Form1);
      with newButton do
      begin
        Parent := Form1;
        Tag := Index;
        Name := 'newButton' + IntToStr(Index);
        Caption:= 'newButton' + IntToStr(Index);
        SetBounds(0, Index * 30,100,30);
      end;
  ObjektButton.Add(newButton);
  end;
end;
Gruß, bluescreen
...und ich dachte, Delphi ist ein Programmgenerator mit nur einem Button......tzzz
  Mit Zitat antworten Zitat