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!!!!!!
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!!!!!!
W Labelu tego nie zrobisz...
Musisz skorzystać z Text Out (masz o tym w FAQ)
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 */
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 :)
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...