fehler beim öffnen des Programmes

[Xster]

Delphi-Quellcode:

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.

[edit=Matze][delphi]-Tags gesetzt. Zukünftig bitte selbst daran denken. MfG, Matze[/edit]