Brauche Eure Hilfe... Finde mein(e) Fehler nicht

[Dennis_Wolfram]

Hallo liebe Delphi-Freunde!

Dennis ist's mal wieder mit seinen Verständnis-Problemen.

Schreibe ein Programm für mein Abi.

Problem ist, dass die Aeroeffekte und alle Vista-Komponenten unter Vista benutzt werden sollen. An der Schule, wo das Programm auch genutzt werden sollen, wird aber Windows-XP benutzt. Bei meinen Abi-Prüfern wird Vista benutzt.
Ich hab also folgende Procedure geschrieben um zu erkennen ob Vista benutzt wird oder nicht:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, jpeg, ExtCtrls, StdCtrls, GlowLabel, WindowsVersionInfo;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    GlowLabel1: TGlowLabel;
    GlowLabel2: TGlowLabel;
    GlowLabel3: TGlowLabel;
    GlowLabel4: TGlowLabel;
    GlowLabel5: TGlowLabel;
    GlowLabel6: TGlowLabel;

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure WindowsVersion;
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.WindowsVersion;
var winInfo : TOSVersionInfo;
begin
  winInfo.dwOSVersionInfoSize := sizeof (OSVERSIONINFO);
  GetVersionEx (winInfo);
  if winInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then
    begin
      if ((winInfo.dwMajorVersion = 6) and (winInfo.dwMinorVersion = 0)) then
        begin
          // Windows-Vista wird verwendet... Vista-Effekte werden aktiviert
          //Form1:
          Form1.GlassFrame.Enabled := True;
          Form1.Image1.Hide;
          Form1.SpeedButton1.Font.Color := clBlack;
          Form1.SpeedButton2.Font.Color := clBlack;
          Form1.GlowLabel1.Font.Color := clBlack;
          Form1.GlowLabel2.Font.Color := clBlack;
          Form1.GlowLabel3.Font.Color := clBlack;
          Form1.GlowLabel4.Font.Color := clBlack;
          Form1.GlowLabel5.Font.Color := clBlack;
          Form1.GlowLabel6.Font.Color := clBlack;
          //Form2;
          Form2.GlassFrame.Enabled := True;
          Form2.Image1.Hide;
          Form2.Image2.Hide;
          Form2.Bevel1.Height := 230;
        end
      else
        begin
          // Windows-XP wird verwendet... Vista-Effekte werden deaktiviert
          ShowMessage ('Sie benutzen leider kein Windows Vista, daher werden die Glas-Effekte deaktiviert.');
          //Form1:
          Form1.GlassFrame.Enabled := False;
          Form1.Image1.Show;
          Form1.SpeedButton1.Font.Color := clWhite;
          Form1.SpeedButton2.Font.Color := clWhite;
          Form1.GlowLabel1.Font.Color := clWhite;
          Form1.GlowLabel2.Font.Color := clWhite;
          Form1.GlowLabel3.Font.Color := clWhite;
          Form1.GlowLabel4.Font.Color := clWhite;
          Form1.GlowLabel5.Font.Color := clWhite;
          Form1.GlowLabel6.Font.Color := clWhite;
          //Form2;
          Form2.GlassFrame.Enabled := False;
          Form2.Image1.Show;
          Form2.Image2.Show;
          Form2.Bevel1.Height := 0;
        end;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered := True;
  WindowsVersion;
end;

.
.

end.

In den anderen Formularen (Form2, Form3 ... Form20) fangen die entsprechenden Units wie folgt an:

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, CategoryButtons;

type
  TForm2 = class(TForm)
    Bevel1: TBevel;
    Image1: TImage;
    Image2: TImage;
    CategoryButtons1: TCategoryButtons;
    procedure FormCreate(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
 DoubleBuffered := True;
 Form1.WindowsVersion;
end;

end.

So wenn ich nun das Programm benutzen möchte soll es beim Starten(TForm.Create ... Form1.WindowsVersion;) rausbekommen ob ich Vista benutze. Wenn ja dann sollen die Glas-Effekte aktiviert und die ganzen Vista-Komponenten benutzt werden. Wenn ich dagegen eine ältere Version von Windows als Vista benutze dann sollen diese ganzen Eigenschaften deaktiviert werden.

Wenn ich meine Anwendung aber nun aus führe (F9) gibt er mir eine Fehlermeldung zurück. Irgendetwas von Zugriffsverletzung oder so. Ich finde einfach nicht meine(n) Fehler.
Über Eure Hilfe währe ich wie immer sehr verbunden!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[toms]

Hallo

Du kannst in Form1 nicht auf Form2 zugreifen, wenn diese noch nicht existiert.

Zudem solltest du eine reine "WindowsVersion" Funktion erstellen und nicht diesen Code mit anderem mixen.

[Dennis_Wolfram]

Hallo,

die Formulare existieren ja. Wenn ich wie gesagt die Anwendung ausführen lasse(F9), kommt die Fehlermeldung. Klicke ich auf OK in der Fehlermeldung, schließt sich diese und die Procedure WindowsVersion macht was sie soll. Das Problem ist eben das immer diese Fehlermeldung kommt(Zugriffsverletzung).

[lbccaleb]

Ja, weil du auf Form2 zugreifst:

Delphi-Quellcode:

//...
          Form2.GlassFrame.Enabled := True;
          Form2.Image1.Hide;
          Form2.Image2.Hide;
          Form2.Bevel1.Height := 230;
        end 
//...

und hier:

Delphi-Quellcode:

//...
          Form2.GlassFrame.Enabled := False;
          Form2.Image1.Show;
          Form2.Image2.Show;
          Form2.Bevel1.Height := 0;
        end;
//...

Zu der Zeit wurde aber Form 2 noch gar nicht initialisiert..

[Dennis_Wolfram]

OK!
und was kann ich jetzt machen? Kann mir jemand das Ideoten-sicher erklären. Ich begreife es einfach nicht. Oder sollich diese if/then-Anweiseung in jedes OnCreate in jedes Formular reinschreiben?

[DeddyH]

Wenn Du mal einen Blick in den Projektquelltext wirfst, wirst Du sehen, dass die Formulare logischerweise nacheinander erzeugt werden. Wenn Du nun im Create eines Formulars auf ein anderes zugreifen willst, das danach erst erzeugt wird, kann das nur danebengehen. Du kannst nun in jedem Create eines Formulars Deine Prüfroutine durchlaufen oder einmalig im Hauptformular und dort eine Eigenschaft setzen, die die anschließend erzeugten Formulare auslesen können.

[Dennis_Wolfram]

Ok, jetzt hat es klick gemacht. Nur noch mal zur Sicherheit... also währe es doch am einfachsten das
a: die if/then Anweisung in jedes Formular in das OnCrate-Ereignis zu schreiben
oder
b: es mit dem OnShow-Ereignis zu probieren ODER?

[DeddyH]

Wie bereits gesagt, ich würde die OS-Version einmalig im Create des Hauptformulars ermitteln und dort eine Property setzen. Aber was Du sagst, geht natürlich auch, ist aber IMHO unnötig.

[Dennis_Wolfram]

Ok.. Es hat geklappt. VIELEN DANK FÜR EURE HILFE :hello: :roteyes: :thumb: :idea: :P