كيف أجعل النصوص تضهر بطريقة عشوائية

[delphiokba]

السلام عليكم ورحمة الله وبركاته
أخواني أردت أن أعرف كيف يتم عرض label
بطريقة عشوائية
مثلا عندي في البرنامج مجموعة من label
وعند النقر على الزر يضهر label2
وعند تنفيذ البرنامج مرة أخرى عند النقر على الزر يضهرlabel5
وهكذا .

[musvc]

[COLOR="Indigo"]ياريت توضح اكثر يعني في كل مرة يضعر Label مختلف ؟؟

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

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

كود :

Label1.visible := true;

و هكذا

[delphiokba]

لا يأخي مافهمتني قصدي عندما يكون عندي مجموعة من label مثلا من 1 إلى 6
وأردت في كل مرة أن يضهر واحد ويختفي الأخر لكن بطريقة عشوائية

[nabilkeb]

http://www.delphi4arab.net/forum/showthr...D%D1%E3%D4

[hanipino]

السلام عليكم .

جرب هذا :

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]

شكرا لكم جميعا على هذا المجهود الطيب

[Dr.MOT]

السلام عليكم ,,

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

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

والسلام عليكم ورحمة الله وبركاته ,,