а..... понял. но прозрачности никакой не надо. нужны регионы. вот смотри.
1. берём форму, на неё кладём панель Panel1, на неё кладём вторую панель - Panel2, делаем ей Align := alClient. далее.
2. кладём MediaPlayer1, наначим какой-нить файл, например, C:\Program Files\Borland\Delphi7\Demos\CoolStuf\speedis.avi, AutoOpen := TRUE.
3. на создание формы - обработчик:
procedure TForm1.FormCreate(Sender: TObject);
var
r1, r2: hRGN;
begin
Panel1.Color := clRed;
Panel2.Color := clBlue;
r1 := CreateRectRgn (0, 0, Panel2.Width, Panel2.Height);
r2 := CreateRoundRectRgn (10, 10, Panel2.Width - 10, Panel2.Height - 10, 30, 30);
CombineRgn (r1, r1, r2, RGN_DIFF);
SetWindowRgn (Panel2.Handle, r1, TRUE);
DeleteObject (r1);
DeleteObject (r2);
end;
что это обработчик делает. он создат "рамку", в виде квадрата с вырезанным из-него эллипсом, и назачит её как форму второй панели. а вот видео мы ббудем вывдить на первую панель, которая лежит под второй (MediaPlayer1.Display := Panel1).
попробуй это запустить, и увидишь. теперь можно положить на вторую панель рисунок, растянуть его, и он также "вырежется", т.е. останется только та часть,что прорисована по краям.
возмжно, что тебе более сложная окантовка нужна. так регион можно создать любым. посмотри в статьях по дельфи мои корявки "работа с регионами", там написано, как сделать регион по битмапу. после этого ты просто назначишь этот регион второй панели, битмап загрузишь в растянутый по ней рисунок, а в первой понели будешь проигрывать видео. и получится тот эффект, как ты хочешь. по крайней мере, у меня получился
