delphi4arab منتديات دلفي للعرب

delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > سؤال و جواب حول دلفي > كيف أجعل النصوص تضهر بطريقة عشوائية
نسخة كاملة : كيف أجعل النصوص تضهر بطريقة عشوائية
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

delphiokba

05-03-2009, 02:17 PM
السلام عليكم ورحمة الله وبركاته
أخواني أردت أن أعرف كيف يتم عرض label
بطريقة عشوائية
مثلا عندي في البرنامج مجموعة من label
وعند النقر على الزر يضهر label2
وعند تنفيذ البرنامج مرة أخرى عند النقر على الزر يضهرlabel5
وهكذا .

musvc

05-03-2009, 02:27 PM
[COLOR="Indigo"]ياريت توضح اكثر يعني في كل مرة يضعر Label مختلف ؟؟

اما بالنسبة لأضهار الـ label :

1 : اضغط على الـ label نقرة واحدة و غير خاصية visible من False الى True
2 : اكتب هذا الكود داخل الزر :[/COLOR]

كود :
Label1.visible := true;

و هكذا

delphiokba

05-03-2009, 02:36 PM
لا يأخي مافهمتني قصدي عندما يكون عندي مجموعة من label مثلا من 1 إلى 6
وأردت في كل مرة أن يضهر واحد ويختفي الأخر لكن بطريقة عشوائية

nabilkeb

05-03-2009, 03:08 PM
http://www.delphi4arab.net/forum/showthr...D%D1%E3%D4

hanipino

05-03-2009, 09:06 PM
السلام عليكم .

جرب هذا :

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; 

Smile

delphiokba

07-03-2009, 04:10 PM
شكرا لكم جميعا على هذا المجهود الطيب

Dr.MOT

12-03-2009, 11:53 PM
السلام عليكم ,,

أخي الكريم أظنك تقصد إظهار 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 )

المشروع في المرفقات

والسلام عليكم ورحمة الله وبركاته ,,
delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > سؤال و جواب حول دلفي > كيف أجعل النصوص تضهر بطريقة عشوائية