Нестандартный вид формы

Posted by Chas under Пост-обзор

Помогите, пожалуйста, сделать внешность формы в виде bmp рисунка, без фонового цвета

ArtGrek:

вот попробуи

{$R *.dfm}

procedure TForm1.WMNCHitTest (var M:TWMNCHitTest);

begin

  inherited;

  if M.Result = htClient then M.Result := htCaption;

end;
procedure TForm1.FormCreate(Sender: TObject);

var

  regn, tmpRegn: integer; // регион окна и временный регион

  x, y: integer; // координаты пикселя

  nullClr: TColor; // <прозрачный цвет>

begin

  nullClr := image1.picture.Bitmap.Canvas.Pixels[0, 0];

  // Image1 это картинка по которой создается форма окна

  regn := CreateRectRgn(0, 0, image1.picture.Graphic.Width,

  image1.picture.Graphic.Height);

  for x := 1 to image1.picture.Graphic.Width do

    for y := 1 to image1.picture.Graphic.Height do

      if image1.picture.Bitmap.Canvas.Pixels[x - 1, y - 1] = nullClr then

      begin

        tmpRegn := CreateRectRgn(x - 1, y - 1, x, y);

        CombineRgn(regn, regn, tmpRegn, RGN_DIFF);

        DeleteObject(tmpRegn);

      end;

  SetWindowRgn(Form1.handle, regn, true);

end;
end.

тема на форуме

Похожие статьи

• Как организовать обмен данными между формами?
• Неглавная форма поверх всех окон
• Окно поверх всех окон
• Перенести программу из Delphi в Lazarus
• Тест в Delphi с помощью RadioGroup
• Random слов в Memo
• Плавное перемещение Image больших размеров
• Выдвижное меню
• Получение яндекс каптчи в Image
• Добавить строку с верха вниз StringGrid