Thema: Delphi Label erzeugen

Einzelnen Beitrag anzeigen

SunSet

Registriert seit: 1. Mär 2010
42 Beiträge
 
Delphi 7 Enterprise
 
#1

Label erzeugen

  Alt 1. Mär 2010, 17:28
Guten Abend,
ich programmiere derzeit Galgenmännchen und benutze dabei eine Textdatei aus der zufällige Wörter ausgelesen werden. Das Galgenmännchen zeichne ich mit der Funktion Canvas und das funktioniert auch alles super.
Nun stellt sich mir die Frage, wie ich je nach Anzahl der Buchstaben des Wortes die Labels erzeugen kann.
Also wenn das Wort zum Beispiel 8 Buchstaben hat sollen 8 Labels mit der Caption _ erscheinen, jedoch wird bei meiner Umsetzung rein garnichts angezeigt. Ich muss dazu sagen, dass ich mich erst seit einigen Wochen mit Delphi auseinandersetze und somit noch kein Profi bin.

Delphi-Quellcode:
for i := 1 to length(Wort) do begin
    MyLabel := TLabel.Create(Form1);
      with MyLabel do begin
        Caption := '_';
        Name := 'lb'+inttostr(i);
        left := 30;
        top := 20;
        width := 10;
        height := 10;
        visible := true;
        enabled := false;
        parent := Form1;
      end;
  end;
Ich bedanke mich schon einmal im Vorraus
  Mit Zitat antworten Zitat