DelphiX: Vollbild/Auflösung Problem

[Die Muhkuh]

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