السلام عليكم كيف نجعل لابل1 تعرض المواضيع عموديا وليس افقيا
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
Var St:String;
i:Integer;
begin
St:=edit1.text; //Texte à écrire verticalement
Label1.Caption:=''; //Efface le contenu du label
for i:=1 to Length(St) do // en boucle sur touts les charters
Label1.Caption:=Label1.Caption+St[i]+#13; // après chaque mot retour chariot
end;
المشكلة عندما يكون لك رقم هاتف طويل ولابل 1 تعرض رقم الهاتف افقيا اريد ان تعرضه عموديا بانتظام
![[صورة: p_1116kwn441.png]](https://c.top4top.net/p_1116kwn441.png)
السلام عليكم جرب خاصية WordWrap
salim489 سؤالك غير واضح
حاول أخذ كل الوقت و اطرح سؤالا يمكن لإجابة عنه بالتحديد
![[صورة: p_1117cw2td1.png]](https://a.top4top.net/p_1117cw2td1.png)
سؤالي واضح هو عندما يكون رقم الهاتف طويل واعرضه في لابل 1 ثم ننفذ البرنامج يكون الرقم افقيا بحيث لانراه كله واريد عرضه الواحد فوق الاخر
كود :
label1.coption:='000000000'+#13+'1111111111111'+#13+'22222222222';
تفضل اخي الكريم
procedure TForm1.Button1Click(Sender: TObject);
var
I : Integer;
S1, S2 : string;
begin
S2 := '';
S1 := 'Hello World';
for I := 1 to Length(S1)do
S2 := S2 + S1[I] + #10 + #13;
Label1.Caption := S2;
end;
end.