Steh grad irgendwie völlig aufm Schlauch. sorry^^
Delphi-Quellcode:
procedure THauptMenu.FormCreate(Sender: TObject);
begin
myAdDraw := TAdDraw.Create(self);
myAdDraw.DllName := 'AndorraOGL.dll';
myAdDraw.Display.Width := HauptMenu.Width;
myAdDraw.Display.Height := HauptMenu.Height;
if myAdDraw.Initialize then
begin
MainGui := TAdGui.Create(myAdDraw);
MainGui.Skin.LoadFromFile('sunna.axs');
MainGui.Cursors.LoadFromFile('cursors.xml');
MainGui.LoadFromFile('mainmenu.axg');
// Hab so versucht ein WindowFramework zu erstellen:
wfw := TAdWindowFramework.Create;
wfw.BindTo(@self); // --> Abstrakter Fehler
MainConnector := TAdGUIConnector.Create(MainGui);
MainConnector.ConnectEventHandlers(wfw); //Früher war das 'self' also mein Formular
TAdButton(MainGUI.FindComponent('exit_game')).OnClick := AdButtonClick;
TAdButton(MainGUI.FindComponent('start_game')).OnClick := AdButtonClick;
end
else
showmessage('Fehler');
end;
Kannst du mir sagen, was ich ändern muss, um das zum laufen zu bringen ?