Einzelnen Beitrag anzeigen

Daniel
(Co-Admin)

Registriert seit: 30. Mai 2002
Ort: Hamburg
13.919 Beiträge
 
Delphi 10.4 Sydney
 
#3

Re: mehrere Buttons erstellen

  Alt 25. Mär 2003, 20:58
Delphi-Quellcode:
  for i:=0 to MAX_BUTTONS-1 do
    pbTemp := nil;
Mit diesem Code setzt Du das Array als solches 500 mal auf NIL. Was Du beabsichtigt hast, was folgendes:

Delphi-Quellcode:
  for i:=0 to MAX_BUTTONS-1 do
    pbTemp[i] := nil;
Da Du danach aber so oder so gleich 500 Einträge in das Array schreibst, kannst Du Dir diese Initialisierung hier auch sparen und gleich die Buttons erzeugen:

Delphi-Quellcode:
  for i:=0 to MAX_BUTTONS-1 do
  begin
    pbTemp[i] := TButton.Create(nil);
    pbTemp[i].Name := 'ButtonNr' + IntToStr(i);
    pbTemp[i].Parent := Form1;
    pbTemp[i].Top := 16 + 1;
    pbTemp[i].Left := 300;
  end;
Die "-1" hinter der Konstanten nicht vergessen... Der Rest müsste aber klappen.
Daniel R. Wolf
mit Grüßen aus Hamburg
  Mit Zitat antworten Zitat