Hallo nochmal,
ich habe es auf eine ganz einfache Weise" selber lösen können.
Delphi-Quellcode:
procedure TForm18.AdvGlassButton11Click(Sender: TObject);
var Bitmap : TBitmap;
DC:HDC;
begin
DC:=GetDc(Panel1.Handle);
Bitmap:=TBitmap.Create();
Bitmap.Width:=Panel1.Width;
Bitmap.Height:=Panel1.Height;
mediaplayer1.Display.PaintTo(Bitmap.Canvas,0,0); BitBlt(Bitmap.Canvas.Handle,0,0,Panel1.Width,Panel1.Height,
DC,0,0,SRCCOPY);
Clipboard.Assign(Bitmap);
Bitmap.Free;
end;
hab es probiert mit mpg,wmv. Geht gut! Bin gerade beim testen mit avi und
was der Mediaplayer sonst noch "FRIST"
