将窗体某一部分设置成透明的？

或者用BMP图做窗体的外观，但去掉位图的多余或透明部分！谢谢！

解决方案 »

  1.   

    将一个FORM变成透明的实质性手段就是拦截CMEraseBkgnd消息。unit Utransform; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm)private 
    { Private declarations }public 
    { Public declarations }PROCEDURE CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND;end;var Form1: TForm1;implementation{$R *.DFM}PROCEDURE Tform1.CMEraseBkgnd(var Message:TWMEraseBkgnd);BEGINbrush.style:=bsClear;Inherited;END;end.
      

  2.   

    漏掉一个过程：procedure TForm1.FormCreate(Sender: TObject);
    begin
      Form1.Brush.Style := bsClear;
      Form1.BorderStyle := bsNone
    end;
      

  3.   

    查看一下Creatergn,combinergn的帮助