Да, всё отлично, Спасибо тебе БОЛЬШОЕ,
http://www.delphisources.ru/forum/im...lies/smile.gif правда что-бы сделать нужный
цвет прозрачным нужно слегка подправить:
var
MaskBmp: TBitmap;
begin
MaskBmp := TBitmap.Create;
try
MaskBmp.LoadFromFile('FormShape.bmp');
maskBMP.Mask(clFuchSia); //Цвет можно подбирать любой
Height := MaskBmp.Height;
Width := MaskBmp.Width;
// ОС владеет регионом, после вызова SetWindowRgn
SetWindowRgn(Self.Handle, BitmapToRgn(MaskBmp), True);
finally
MaskBmp.Free;
end;
end;