Forum: Programmieren allgemein
by Pytroxis,
22. Apr 2019
Das hatte super funktioniert, vielen Dank!
Könnt ihr den Fehler finden, weshalb die ListBox Items nicht geladen werden bzw. weshalb dieses leer bleibt?
var zahlen: array of TStrings;
...
//In einer Procedure die ausgeführt wird und welche funktioniert
zahlen := ListBox1.Items;
...
procedure TForm1.Button5Click(Sender: TObject);
Forum: Programmieren allgemein
by Pytroxis,
19. Apr 2019
Die Labels werden auch nur gelöscht/erstellt sofern die Form geschlossen/geöffnet wird, dies sollte auch so sein, da sich jedesmal der Inhalt, die Position und die Anzahl der Labels ändert.
Deine Idee mit dem Draw Text erscheint, mir allerdings wirklich als eine bessere alternative, so erspare ich mir einiges an schreib arbeit und außerdem scheint es mir damit einfacher zu sein ein dynamisches...
Forum: Programmieren allgemein
by Pytroxis,
18. Apr 2019
So ähnlich habe ich es auch gelöst, werde aber morgen mal deinen Ansatz probieren, da mir dieser besser erscheint :)
Das Problem ist also, soweit gelöst, allerdings habe ich eine weitere Frage:
Ich arbeite mit der Funktion Canvas und den Labels.
Das Zeichnen lasse ich in OnPaint (+ Canvas.Refresh) und OnResize stattfinden (sofern es eine bessere Möglichkeit gibt, bin ich gerne offen für...
Forum: Programmieren allgemein
by Pytroxis,
17. Apr 2019
Guten Tag,
ich erstelle während der Laufzeit Labels, der Code ist hierfür:
procedure CreateLabel (Form:TForm; Text:string; X,Y:Integer);
var
Lab : TLabel;
begin
Lab := TLabel.Create(Form);
Lab.Parent := Form;