كيف نجعل لابل1 تعرض المواضيع عموديا وليس افقيا

[salim489]

السلام عليكم كيف نجعل لابل1 تعرض المواضيع عموديا وليس افقيا

[Mustapha29]

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; 


[salim489]

المشكلة عندما يكون لك رقم هاتف طويل ولابل 1 تعرض رقم الهاتف افقيا اريد ان تعرضه عموديا بانتظام

[S.FATEH]

السلام عليكم جرب خاصية WordWrap

[Mustapha29]

salim489 سؤالك غير واضح
حاول أخذ كل الوقت و اطرح سؤالا يمكن لإجابة عنه بالتحديد

[salim489]

سؤالي واضح هو عندما يكون رقم الهاتف طويل  واعرضه في لابل  1 ثم ننفذ البرنامج يكون الرقم افقيا بحيث لانراه كله واريد عرضه الواحد فوق الاخر

[bouh25]

كود :

label1.coption:='000000000'+#13+'1111111111111'+#13+'22222222222';

[salim489]

بارك الله فيك اخي الكريم

[fouadhdfouad]

تفضل اخي الكريم

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.