Einzelnen Beitrag anzeigen

Benutzerbild von maximus Caesar
maximus Caesar

Registriert seit: 26. Sep 2004
Ort: Biberach
319 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: Element '' hat kein übergeordnetes Fenster

  Alt 20. Mär 2005, 15:07
Hier mal die ganze Unit:

Delphi-Quellcode:
unit Optionen;

interface

type
    TOptionen = class
       procedure Anzeigen;
       procedure Speichern;
      private
      public
       Rueckgaengig : Boolean;
       dreimalWuerfeln : Boolean;
       Zugzwang : Boolean;
       Geschwindigkeit : Extended;
       Wuerfeln : Integer;
       Farbauswahl : Integer;
       Spieler : Integer;
       Figuren : Integer;
       Figurauswahl : Boolean;
       BewegungsArt : Boolean;
    end;

implementation

uses Unit2,Variablen;

procedure TOptionen.Anzeigen;
begin
  Form2.Checkbox1.Checked:=Rueckgaengig;
  Form2.Checkbox2.Checked:=dreimalWuerfeln;
  Form2.Checkbox3.Checked:=Zugzwang;
  if Geschwindigkeit=1 then Form2.RadioGroup7.ItemIndex:=0;
  if Geschwindigkeit=0.5 then Form2.RadioGroup7.ItemIndex:=1;
  if Geschwindigkeit=0.1 then Form2.RadioGroup7.ItemIndex:=2;
  if Geschwindigkeit=0.05 then Form2.RadioGroup7.ItemIndex:=3;
  if Geschwindigkeit=0.01 then Form2.RadioGroup7.ItemIndex:=4;
  if Geschwindigkeit=0.005 then Form2.RadioGroup7.ItemIndex:=5;
  if Geschwindigkeit=0.001 then Form2.RadioGroup7.ItemIndex:=6;
  Form2.RadioGroup1.ItemIndex:=Wuerfeln;
  Form2.RadioGroup2.ItemIndex:=Farbauswahl;
  Form2.RadioGroup3.ItemIndex:=Spieler-2;
  Form2.RadioGroup4.ItemIndex:=Figuren-1;
  if Figurauswahl=True then Form2.RadioGroup5.ItemIndex:=0 else Form2.RadioGroup5.ItemIndex:=1;
  if BewegungsArt=True then Form2.RadioGroup6.ItemIndex:=0 else Form2.RadioGroup6.ItemIndex:=1;
end;

procedure TOptionen.Speichern;
begin
 Text.OptionenSpeichern;
end;

end.
Bis jetzt bin ich immer ohne einen Konstruktor zu schreiben ausgekommen... (weiß auch noch nicht was ich da machen müsste)
  Mit Zitat antworten Zitat