انتخاب گزینه بصورت تصادفی در دلفی

[milad_mary]

من در صفحه فرمم 4 گزینه دارم و می خوام با کلیک بر روی دکمه یکی از 4 گزینه بصورت راندوم انتخاب بشه و به صفحه موردنظر بره.:عصبانی++:

[Batman]

میتونی یه عدد راندوم مثلا به تعداد کلیدهات درست کنی
و به هر کدوم از کلیدهات یه عدد اختصاص بدی و بعد مثلا اگر شماره 3 تولید شد
دستور زیر اجرا بشه
button3.onclick;
موفق باشید

[Valadi]

این هم کدش
در این ما 5 تا Label

procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
case (random(5)+1) of //random Label from 1 -- 5
1:Label1.Show;
2:Label2.Show;
3:Label3.Show;
4:Label4.Show;
5:Label5.Show;
end;
end;