12. juni 2002 - 03:00Der er
2 kommentarer og 1 løsning
Lang tekst i Form
Jeg har en lang tekst på ca hundrede ord. Den skal vises på en eller anden måde i et Delphi program. Jeg ville helst sætte det ind i en slags label, så der ikke kommer nogen scrollbar eller kant eller noget som helst uden om teksten, den skal altså bare stå midt i formen. Hvorunder der kommer nogen knapper. Labels bryder ikke teksten, men jeg håber at der findes et komponent der gør??? Hvilket komponent skal jeg bruge til at få vist sådan en tekst, og hvis der ikke findes sådan et komponent, hvordan skal jeg så gøre?
TLabel objectet kan godt rumme en hel del tekst og kan godt bryde teksten ved at sætte WordWrap=True.
Men du kan også vælge TMemo, der kan du jo selv "formatere" teksten, altså bestemme hvordan teksten skal brydes - så sætter du BorderStyle til bsNone, så får du ikke indrammet teksten og Color kan jo sættes til hvad du har brug for.
Du kan også bare lade canvas klare problemet. I din form's OnPaint event skriver du således:
procedure TForm1.FormPaint(Sender: TObject); var s : Tstringlist; i : smallint; begin s := Tstringlist.create; s.loadfromfile('c:\frunlog.txt'); canvas.brush.color := form1.color; for i := 0 to s.count-1 do canvas.textout(50,50+(i*14),s.strings[i]); s.free; end;
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
