Image über Mediaplayer-Fenster

[SirThornberry]

rund gehts so:

Delphi-Quellcode:

var LReg1, LReg2: Cardinal;
begin
  LReg1 := CreateEllipticRgn(0, 0, Panel1.Width div 2, Panel1.Height);
  LReg2 := CreateEllipticRgn(Panel1.Width div 2, 0, Panel1.Width, Panel1.Height);
  CombineRgn(LReg1, LReg1, LReg2, RGN_OR);
  SetWindowRgn(Panel1.Handle, LReg1, True);
  DeleteObject(LReg1);
  DeleteObject(LReg2);