MediaplayerDisplay auf Panel anpassen

[Muddy]

Hallo!!

In meinem Programm kann ich bereits eine Videodatei, über ein Panel als Dispay, abspielen!
Doch jezt habe ich das PRoblem, dass sich das Video nicht an die Panelgröße anpasst!!

Wie kann ich diess PRoblem beheben??

Delphi-Quellcode:

  procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    begin
      mediaplayer1.Filename:=OpenDialog1.FileName;
      mediaplayer1.Open;
      Trackbar1.Min:=0;
      Trackbar1.Max:=Mediaplayer1.Length;
    end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Trackbar1.Max <> 0 then
    Trackbar1.Position:=Trackbar1.Position;

end;

Bitte auch Beispiele als delphi-Code!!

[himitsu]

Läßt sich da was über MediaPlayer1.DisplayRect machen?

Delphi-Quellcode:

MediaPlayer1.DisplayRect := Panel1.ClientRect;

Zitat:

Zitat von Muddy

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Trackbar1.Max <> 0 then
    Trackbar1.Position:=[color=#ff0000][b]Trackbar1[/b][/color].Position;

sicher daß das so stimmt?

[Muddy]

Nein!! Aber den Fehler habe ich bereits behoben und danke für die Hilfe ^^