+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف نجعل لابل1 تعرض المواضيع عموديا وليس افقيا (/showthread.php?tid=10014)
كيف نجعل لابل1 تعرض المواضيع عموديا وليس افقيا - salim489 - 20-01-2019
السلام عليكم كيف نجعل لابل1 تعرض المواضيع عموديا وليس افقيا
RE: مشكلة في لابل - Mustapha29 - 20-01-2019
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;
RE: كيف نجعل لابل1 تعرض المواضيع عموديا وليس افقيا - salim489 - 21-01-2019
المشكلة عندما يكون لك رقم هاتف طويل ولابل 1 تعرض رقم الهاتف افقيا اريد ان تعرضه عموديا بانتظام
![[صورة: p_1116kwn441.png]](https://c.top4top.net/p_1116kwn441.png)
RE: كيف نجعل لابل1 تعرض المواضيع عموديا وليس افقيا - S.FATEH - 21-01-2019
السلام عليكم جرب خاصية WordWrap
RE: كيف نجعل لابل1 تعرض المواضيع عموديا وليس افقيا - Mustapha29 - 21-01-2019
salim489 سؤالك غير واضح
حاول أخذ كل الوقت و اطرح سؤالا يمكن لإجابة عنه بالتحديد
RE: كيف نجعل لابل1 تعرض المواضيع عموديا وليس افقيا - salim489 - 22-01-2019
![[صورة: p_1117cw2td1.png]](https://a.top4top.net/p_1117cw2td1.png)
سؤالي واضح هو عندما يكون رقم الهاتف طويل واعرضه في لابل 1 ثم ننفذ البرنامج يكون الرقم افقيا بحيث لانراه كله واريد عرضه الواحد فوق الاخر
RE: كيف نجعل لابل1 تعرض المواضيع عموديا وليس افقيا - bouh25 - 23-01-2019
كود :
label1.coption:='000000000'+#13+'1111111111111'+#13+'22222222222';RE: كيف نجعل لابل1 تعرض المواضيع عموديا وليس افقيا - salim489 - 23-01-2019
بارك الله فيك اخي الكريم
RE: كيف نجعل لابل1 تعرض المواضيع عموديا وليس افقيا - fouadhdfouad - 12-02-2019
تفضل اخي الكريم
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.