Flimmer-Problem Bitte schnell helfen muss montag fertig sein

[lhmultimedia]

Hi, Leute

Ich hab ein schlimmes Flimmer-Problem, ich beschreibs euch mal kurz:
Auf Form1 läuft im MediaPlayer ein Video, Display und DisplayRect ist Panel1.
Dann wird auf Tastendruck ein Inhaltsverzeichnis eingeblendet.
Als erstes wird per AlphaBlend Form2, welches komplett schwarz ist, halbtransparent über Form1 eingeblendet, somit herrscht dann ein Verdunklungseffekt.
Dann wird Form3 mit dem PNG-Bild des Inhaltsverzeichnis per AlphaBlend über Form 2 geblendet.
Das Problem ist: Form 2 und 3 Flimmern ohne Ende, die Verdunklung ist somit nicht sichtbar und Form3 flackert ständig.
Bis gestern hat noch alles wunderbar geklappt, jetzt funktioniert's auf einmal nicht mehr.

Meine Frage: Wie krieg ich dieses Flimmern weg? Habs schon mit DoubleBuffered probiert, funktioniert aber nicht.

Das Ganze muss ich aber bis zu meinem Referat am Montag fertigstellen, bitte helft mir schnell.
Ich schick euch hier mal meinen Code (sorry sehr unordentlich und noch einges an Müll drin^^) und die Dazugehörige .exe sowie .dpr, die Videos hab ich aus Zeit-und-Dateigröße-Gründen weggelassen (sie sind nicht so wichtig, einfach 4 beliebige .avi-Dateien ins Unterverzeichnis Videos, nummeriert von 01 bis 04):


Unit 1:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, pngimage, GR32_PNG, GR32, GR32_Image, ExtCtrls, StdCtrls,
  MPlayer, Unit2, Unit3;
const
  Bpp = Graphics.pf32bit;

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    MediaPlayer2: TMediaPlayer;
    Panel1: TPanel;
    Timer1: TTimer;
    Timer2: TTimer;
    MediaPlayer3: TMediaPlayer;
    MediaPlayer4: TMediaPlayer;
    procedure FormCreate(Sender: TObject);
    procedure MediaPlayer1Notify(Sender: TObject);
    procedure MediaPlayer2Notify(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Overlay: TBitmap32;
  Situation: Integer;
  Alpha: Boolean;
  OutlinePNG: String;

implementation

{$R *.dfm}
function ChangeRes(X, Y: Integer; Frequency: Byte; FullScreen: Boolean): Boolean;
var
  DevMode: TDeviceMode;
begin
  // Initialisieren
  EnumDisplaySettings(nil, 0, DevMode);
  DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY;
  DevMode.dmDisplayFrequency := Frequency;
  DevMode.dmPelsWidth  := X;
  DevMode.dmPelsHeight := Y;

  // Auflösung ändern
  if FullScreen then
    Result := ChangeDisplaySettings(DevMode, CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL else 
      Result := ChangeDisplaySettings(DevMode, 0) = DISP_CHANGE_SUCCESSFUL; 
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.DoubleBuffered := true;
  MediaPlayer1.DoubleBuffered:=true;
  MediaPlayer2.DoubleBuffered:=true;
  MediaPlayer3.DoubleBuffered:=true;
  MediaPlayer4.DoubleBuffered:=true;
  Panel1.DoubleBuffered:=true;
    If not ChangeRes(800, 600, 0, True) then
  begin
    MessageBox(0,
      'Das Ändern der Auflösung ist fehlgeschlagen.',
      'Fehler:', MB_OK or MB_ICONERROR);
    Exit;
  end;
  Form1.WindowState := wsMaximized;
  MediaPlayer1.FileName:='Videos\01.avi';
  MediaPlayer1.open;
  MediaPlayer1.Display:=Panel1;
  MediaPlayer1.DisplayRect:=Panel1.ClientRect;
  MediaPlayer2.FileName:='Videos\02.avi';
  MediaPlayer2.open;
  MediaPlayer2.Display:=Panel1;
  MediaPlayer2.DisplayRect:=Panel1.ClientRect;
  MediaPlayer1.Play;
  Situation:=1;
end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.Position = MediaPlayer1.Length then begin
MediaPlayer2.Play;
end;
end;

procedure TForm1.MediaPlayer2Notify(Sender: TObject);
begin
if MediaPlayer2.Position = MediaPlayer2.Length then begin
MediaPlayer2.Play;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var i:Integer;
LPNG: TPNGObject;
begin
for i:=0 to 100 do
begin
Form2.AlphaBlendValue:=i;
if i=100 then
begin
Timer1.Enabled:=false;
OutlinePNG:=GetCurrentDir() + '\outline.png';
//GR32_PNG.LoadBitmap32FromPNG(Form3.Image321.Bitmap, OutlinePNG, Alpha);
//GR32_PNG.LoadPNGintoBitmap32(Form3.Image321.Bitmap, OutlinePNG, Alpha);
//Form3.Image321.Bitmap.DrawMode:=dmBlend;
LPNG := TPNGObject.Create;
try
LPNG.LoadFromFile('outline.png');
Form3.Image1.Picture.Graphic:=LPNG;
finally
LPNG.Free;
end;
Form3.AlphaBlend := true;
Form3.AlphaBlendValue := 0;
Form3.Show;
Timer2.Enabled:=true;
end;
end;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Situation=1 then
begin
  Form2.AlphaBlend := true;
  Form3.AlphaBlend := true;
  Form2.AlphaBlendValue := 0;
  Form2.Show;
  Timer1.Enabled := true;
  end;
  if Situation=2 then
  begin
  MediaPlayer3.Stop;
  MediaPlayer3.Rewind;
  MediaPlayer4.FileName:='Videos\04.avi';
  MediaPlayer4.open;
  MediaPlayer4.Display:=Panel1;
  MediaPlayer4.DisplayRect:=Panel1.ClientRect;
  MediaPlayer4.Play;
  end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var i: Integer;
begin
for i:=0 to 255 do
begin
Form3.AlphaBlendValue:=i;
if i=255 then
begin
Timer2.Enabled:=false;
end;
end;
end;

end.

Unit2:

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

end.

Unit 3:

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, pngimage, pnglang, pngextra, GR32_Image;

type
  TForm3 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TForm3.Timer1Timer(Sender: TObject);
var i: Integer;
begin
for i:=0 to 255 do
begin
Form3.AlphaBlendValue:=255-i;
if i<155 then
begin
Form2.AlphaBlendValue:=100+i;
end;
if i=255 then
begin
Timer1.Enabled:=false;
  Form1.MediaPlayer2.Stop;
  Form1.MediaPlayer1.Stop;
  Form1.MediaPlayer2.Rewind;
  Form1.MediaPlayer1.Rewind;
  Form1.MediaPlayer3.FileName:='Videos\03.avi';
  Form1.MediaPlayer3.open;
  Form1.MediaPlayer3.Display:=Form1.Panel1;
  Form1.MediaPlayer3.DisplayRect:=Form1.Panel1.ClientRect;
Timer2.Enabled:=true;
end;
end;
end;

procedure TForm3.FormKeyPress(Sender: TObject; var Key: Char);
begin
 Timer1.Enabled := true;
end;

procedure TForm3.Timer2Timer(Sender: TObject);
var i: Integer;
begin
for i:=0 to 255 do
begin
Form2.AlphaBlendValue:=255-i;
if i=255 then
begin
Timer2.Enabled:=false;
Form3.Close;
Form1.MediaPlayer3.Play;
Form2.Close;
Situation := 2;
end;
end;

end;

end.