Random

[DeddyH]

Sei mir nicht böse, aber ein Grundlagentutorial erscheint mir angebracht. Nichtsdestotrotz:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
var RandomValue: integer; //Deklaration der Variablen
begin
  RandomValue := random(3);
  case RandomValue of
    0: Form1.Show;
    1: Form2.Show;
    2: Form3.Show;
  end; //dieses end darf nicht weggelassen werden
end;