Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian S.,
3. Sep 2003
Hallo!
Der Code oben funktioniert problemlos! Ich habe ihn in Delphi geschrieben und getestet. Außerdem bin ich gerade noch einmal selbst den Anweisungen in meinem letzten Posting gefolgt und bin auf keine Probleme gestoßen! Seit wann führt es zu Problemen, eine Komponente zur Laufzeit zu erzeugen?
Die Variable ist nur eine Referenz auf das Objekt. Wenn das Objekt noch nicht erzeugt ist,...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian S.,
2. Sep 2003
Hallo!
Um erst einmal Deine Frage zu beantworten:
Ich habe das Label direkt in das Panel "hineingeklickt".
Wenn es gar nicht klappt, dann mach es folgendermaßen:
1. packe ein Panel mit Namen "Panel1" auf die Form (wenn es anders lautet, nachfolgenden Quelltext umschreiben).
2. verwende folgenden Code, um ein Label "myLabel" während der Laufzeit zu erzeugen, welches sich nur im Panel...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian S.,
1. Sep 2003
Hallo!
Also, wie folgt funktioniert es bei mir (ganz genau, damit wir nicht von zwei unterschiedlichen Sachen reden):
1. ich packe ein Panel auf die Form
2. ich packe ein Label ins das Panel
3. ich packe einen Timer auf die Form
4. der Timer bekommt folgenden Code:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian S.,
1. Sep 2003
Hallo!
Wenn Du statt der 145 als label1.width folgendes verwendest, sollte es klappen:
label1.canvas.TextWidth(label1.caption);
MfG
Peter
//Edit: und wenn Du folgendes statt Deiner Prozedur als OnTimer nimmst, wird es noch schöner: