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.