Pionowy napis na TLabelu

0

Co zrobić kiedy w Tedit coś wpisze kilkne button i w Labelu pokazała mi się zmienna napisana w pionowo np:

L
a
b
e
l
1

a nie
Label1


Bardzo Proszę o POMOC!!!!!!

0

W Labelu tego nie zrobisz...

Musisz skorzystać z Text Out (masz o tym w FAQ)

0

var i: integer;
s, temp: string;
begin
s:='';
temp:=Edit1.Text;
for i:=1 to Length(Edit1.Text) do
begin
s:=s+temp[i]+#13;
end;
Label1.Caption:=s;
end;

/* Przypominam o możliwości stosowania tagu dla większych fragmentów kodu - m.D */

0

Jest jeden mały problem. Jak dasz samo #13 to nie pojawi się nic linijkę niżej a tylko fajny czrny krzaczek. Tak więc zamiast #13 należy wpisać :
#13#10i powinno być ok :)

0

Miałem kiedyś do tego komponent, ale skasowałem.....

A poza tym możesz zrobić to tak:

Wpisz do labela jakiś tekst, potem właściwość wordWrap na true i zmniejsz maksymalnie szerokość labelka, tak, żeby w szerokości była tylko literka jedna...

1 użytkowników online, w tym zalogowanych: 0, gości: 1