Hi,
ich gehe mal davon aus, dass du Initalization und Finalization von Hand aufrufst.
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
begin
DXDraw1.Finalize;
DXDraw1.Options := DXDraw1.Options + [doFullScreen];
DXDraw1.Initalize;
...
// es folgen Sachen die nix mit der Auflösung zu tun haben... Klassen werden erstellt etc..
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i : Integer;
begin
Form2.Show;
DXDraw1.Finalize; // <<-
DXDraw1.Options := DXDraw1.Options - [doFullScreen];
DXDraw1.Initialize;
for I:= 1 to DXSpriteEngine1.Engine.Count do
DXSPriteEngine1.Engine.Items[0].Free;
end;
Versuchs ma so