+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أجعل النصوص تضهر بطريقة عشوائية (/showthread.php?tid=669)
كيف أجعل النصوص تضهر بطريقة عشوائية - delphiokba - 05-03-2009
السلام عليكم ورحمة الله وبركاته
أخواني أردت أن أعرف كيف يتم عرض label
بطريقة عشوائية
مثلا عندي في البرنامج مجموعة من label
وعند النقر على الزر يضهر label2
وعند تنفيذ البرنامج مرة أخرى عند النقر على الزر يضهرlabel5
وهكذا .
كيف أجعل النصوص تضهر بطريقة عشوائية - musvc - 05-03-2009
[COLOR="Indigo"]ياريت توضح اكثر يعني في كل مرة يضعر Label مختلف ؟؟
اما بالنسبة لأضهار الـ label :
1 : اضغط على الـ label نقرة واحدة و غير خاصية visible من False الى True
2 : اكتب هذا الكود داخل الزر :[/COLOR]
كود :
Label1.visible := true;و هكذا
كيف أجعل النصوص تضهر بطريقة عشوائية - delphiokba - 05-03-2009
لا يأخي مافهمتني قصدي عندما يكون عندي مجموعة من label مثلا من 1 إلى 6
وأردت في كل مرة أن يضهر واحد ويختفي الأخر لكن بطريقة عشوائية
كيف أجعل النصوص تضهر بطريقة عشوائية - nabilkeb - 05-03-2009
http://www.delphi4arab.net/forum/showthread.php?tid=72&highlight=%ED%D1%E3%D4
كيف أجعل النصوص تضهر بطريقة عشوائية - hanipino - 05-03-2009
السلام عليكم .
جرب هذا :
PHP كود :
uses Math
PHP كود :
var
Form1: TForm1;
RadmIndex : Byte;
Y : Byte = 1;
PHP كود :
procedure TForm1.tmr1Timer(Sender: TObject);
begin
Randomize;
TWinControl(FindComponent('Lbl'+IntTostr(y))).Visible := True;
RadmIndex := RandomRange(1, 6);
TWinControl(FindComponent('Lbl'+IntTostr(RadmIndex))).Visible := False;
y := RadmIndex;
end;
كيف أجعل النصوص تضهر بطريقة عشوائية - delphiokba - 07-03-2009
شكرا لكم جميعا على هذا المجهود الطيب
كيف أجعل النصوص تضهر بطريقة عشوائية - Dr.MOT - 12-03-2009
السلام عليكم ,,
أخي الكريم أظنك تقصد إظهار label بشكل عشوائي ؟
إذا كان هذا قصدك ألقى نظرة على هذا الكود فهو يقوم بالعمل :
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var m : integer;
begin
Randomize ;
m := Random (5) ;
case m of
5 : begin label1.visible := False ; label2.visible := False ; label3.visible := False ; label4.visible := False ; label5.Visible := True ; end;
4 : begin label1.visible := False ; label2.visible := False ; label3.visible := False ; label4.visible := True ; label5.Visible := False ; end;
3 : begin label1.visible := False ; label2.visible := False ; label3.visible := True ; label4.visible := False ; label5.Visible := False ; end;
2 : begin label1.visible := False ; label2.visible := True ; label3.visible := False ; label4.visible := False ; label5.Visible := False ; end;
1 : begin label1.visible := True ; label2.visible := False ; label3.visible := False ; label4.visible := False ; label5.Visible := False ; end;
end;
end;
end.
( باعتبار أنه يوجد 5 من الـ Labels )
المشروع في المرفقات
والسلام عليكم ورحمة الله وبركاته ,,