Как мне сделать Image полупрозрачным
Как мне сделать Image полупрозрачным
Как мне сделать Image полупрозрачным так, чтобы под ним все процессы было видно? Т.е. допустим за Image показывается кино и нужно чтобы его было видно. При этом в Image у меня очищен розовый цвет (Transparent). Мне нужно это реализовать в Win98. Cначала делаем полностью прозрачную форму: procedure TForm1.CreateParams(var Params: TCreateParams); begin inherited createparams(params); {Здесь убираем у формы заголовки и границы} params.style:=params.style or ws_popup xor ws_dlgframe; end; {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); var formrgn:hrgn; begin form1.brush.style:=bsclear; GetWindowRect(form1.Handle, rect(...........)); DeleteObject(formRgn); formrgn:= CreateroundRectRgn0,0,form1.width,form1.width,form1.width,form1.width); ///// или что-то такое........ SetWindowRgn(form1.Handle, formrgn, TRUE); end; Потом ставим Bitmap и делаем его прозрачным..... Не потеряй свою форму на экране!
