Keine Buttoneigenschaftenänderung

[xZise]

Ich habe folgenden Code, der in einem Bestimmten Ordner alle EXE-Dateien sucht.
Das funzt an sich auch, nur ändert er nicht die Eigenschaften:

Delphi-Quellcode:

BGame[i - 1] := TButton.Create(self);
with BGame[i - 1] do begin
  Parent := FMenue;
  Caption := Copy(ExtractFileName(LSearchRec.Name), 1, Length(ExtractFileName(LSearchRec.Name)) - 4);
  Width := 129;
  Left := 8;
  Height := 25;
  Top := (i - 1 * 33) + 8;
end;

[mkinzler]

Rufst du nach dem erzeugen ein update auf?

[xZise]

Hmmm... Also es liegt im Create (Wenns dir hilft)

Und bisher gings auch immer ohne:

Delphi-Quellcode:

// Map neuzeichnen
Map.Free;
Map := TImage.Create(Self);
Map.Parent := FFreggels;
Map.Width := StrToInt(Karte[0]) * 32;
Map.Left := (Screen.Width - 125) div 2 - Map.Width div 2;
Map.Height := StrToInt(Karte[1]) * 32;
Map.Top := Screen.Height div 2 - Map.Height div 2;
Map.BringToFront;
Map.Cursor := crNone;

[Hawkeye219]

Hallo,

Dein Problem ist wahrscheinlich, daß Du wegen eines Fehlers im Code den Button nicht siehst.
Hier die korrigierte Verssion:

Delphi-Quellcode:

BGame[i - 1] := TButton.Create(self);
with BGame[i - 1] do begin
  Parent := FMenue;
  Caption := Copy(ExtractFileName(LSearchRec.Name), 1, Length(ExtractFileName(LSearchRec.Name)) - 4);
  Width := 129;
  Left := 8;
  Height := 25;
  Top := ((i - 1) * 33) + 8;  // <--- hier war der Fehler
end;

Gruß Hawkeye

[xZise]

Genial ^^ Danke unf FERTIG!