Hallo Leute...
Ich und meine Freundin sind noch richtige Anfänger, was das programmieren der Delphi-Sprache angeht. Doch im Rahmen eines Schulprojektes müssen wir nun ei Delphiporgramm selbst erstellen, wobei wir jetzt gerade vor dem folgenden Problem stehe:
Ich habe Form 1 bi s 8 und versuche dass sich per Knopfdruck einer dieser zufällig öffnet.
Mein Text sieht so aus:
mit Checkboxen habe ich gearbeitet.
Delphi-Quellcode:
procedure TForm1.Panel1Click(Sender: TObject);
var z1,z2,f1,f2,f3,f4,f5,f6:integer;
begin
if (checkbox1.checked=true) //Um die nächste Seite zu öffnen
and (checkbox2.checked=false)
and (checkbox3.checked=false)
and (checkbox4.checked=false)
and (checkbox6.checked=false)
and (checkbox8.checked=false)
and (checkbox9.checked=false)
and (checkbox5.checked=true)
and (checkbox7.checked=true)
then randomize;
for z1 := 1 to 3 do
f1:=(random(4));
edit1.text:=IntToStr(f1);
if edit1.text='0' then form2.show;
if edit1.text='1' then form2.show;
if edit1.text='2' then form2.show;
(checkbox1.checked=true) //Um die nächste Seite zu öffnen
and (checkbox2.checked=false)
and (checkbox3.checked=false)
and (checkbox4.checked=false)
and (checkbox6.checked=false)
and (checkbox8.checked=false)
and (checkbox9.checked=false)
and (checkbox5.checked=true)
and (checkbox7.checked=true)
then form1.Hide;
else showmessage('FEHLER SIND NOCH VORHANDEN');
Ich hoffe jemand könnte mir weiterhelfen.
Mit freundlichen Grüßen
Lena
[edit=SirThornberry]Delphi-Tags gesetzt und Sprache korrigiert (Schulprogrammierung ist kein .NET) - Mfg, SirThornberry[/edit]