fehler beim öffnen des Programmes

[Xster]

unit SuperDBwow;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, Menus, StdCtrls, ShellApi;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
ier6Stze1: TMenuItem;
Paladin1: TMenuItem;
Schurke1: TMenuItem;
Jger1: TMenuItem;
Schamane1: TMenuItem;
Krieger1: TMenuItem;
Druide1: TMenuItem;
Priester1: TMenuItem;
Magier1: TMenuItem;
Hexenmeister1: TMenuItem;
Image1: TImage;
Button1: TButton;
Instanzen1: TMenuItem;
Button2: TButton;
Map1: TMenuItem;
procedure Schurke1Click(Sender: TObject);
procedure Paladin1Click(Sender: TObject);
procedure Jger1Click(Sender: TObject);
procedure Schamane1Click(Sender: TObject);
procedure Krieger1Click(Sender: TObject);
procedure Druide1Click(Sender: TObject);
procedure Priester1Click(Sender: TObject);
procedure Magier1Click(Sender: TObject);
procedure Hexenmeister1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Instanzen1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Map1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,
Unit11, Unit12, Unit13;

{$R *.dfm}

procedure TForm1.Schurke1Click(Sender: TObject);
begin
Form2.ShowModal;
end;

procedure TForm1.Paladin1Click(Sender: TObject);
begin
Form3.ShowModal;
end;

procedure TForm1.Jger1Click(Sender: TObject);
begin
Form4.ShowModal;
end;

procedure TForm1.Schamane1Click(Sender: TObject);
begin
Form5.ShowModal;
end;

procedure TForm1.Krieger1Click(Sender: TObject);
begin
Form6.ShowModal;
end;

procedure TForm1.Druide1Click(Sender: TObject);
begin
Form7.ShowModal;
end;

procedure TForm1.Priester1Click(Sender: TObject);
begin
Form8.ShowModal;
end;

procedure TForm1.Magier1Click(Sender: TObject);
begin
Form9.ShowModal;
end;

procedure TForm1.Hexenmeister1Click(Sender: TObject);
begin
Form10.ShowModal;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form11.ShowModal;
end;

procedure TForm1.Instanzen1Click(Sender: TObject);
begin
Form12.ShowModal;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open',
PChar('www.wow-europe.com'), nil, nil,
SW_ShowNormal);
end;

procedure TForm1.Map1Click(Sender: TObject);
begin
Form13.ShowModal;
end;

end.

[DeddyH]

Das ist anscheinend das Hauptformular. Wie sieht denn die *.dpr aus?

[mkinzler]

Projekt->Quelltext anzeigen

[Xster]

Sie sieht folgendermaßen aus:

-ein großes backgroundbild
-ein Menü mit 3 Menüpunkten
-2 Buttons

[Xster]

@Mkinzler

program DBwow;

uses
Forms,
SuperDBwow in 'SuperDBwow.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4},
Unit5 in 'Unit5.pas' {Form5},
Unit6 in 'Unit6.pas' {Form6},
Unit7 in 'Unit7.pas' {Form7},
Unit8 in 'Unit8.pas' {Form8},
Unit9 in 'Unit9.pas' {Form9},
Unit10 in 'Unit10.pas' {Form10},
Unit11 in 'Unit11.pas' {Form11},
Unit13 in 'Unit13.pas' {Form13};

{$R *.res}

begin
Application.Initialize;
Application.Title := 'SuperDBwow';
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm6, Form6);
Application.CreateForm(TForm7, Form7);
Application.CreateForm(TForm8, Form8);
Application.CreateForm(TForm9, Form9);
Application.CreateForm(TForm10, Form10);
Application.CreateForm(TForm11, Form11);

Application.CreateForm(TForm13, Form13);
Application.Run;
end.

[mkinzler]

Füge

bei den uses

Delphi-Quellcode:

Unit12 in 'Unit12.pas' {Form12},

und in der Hauptschleife

Delphi-Quellcode:

Application.CreateForm(TForm12, Form12);

ein.

[Xster]

ja es funzt wieder alles. :dancer:

Jungs ihr seid echt die besten!!!!!!!! :thumb:

vielen Dank!!!!

[mkinzler]

Deshalb auch die Frage, ob das Formular überhaupt erzeugt wird.

Zitat:

vielen Dank!!!!

Gern geschehen