首页 > 代码库 > Delphi 窗体无边框,透明的设置

Delphi 窗体无边框,透明的设置

1、使Form没有标题栏和边框,只需要设置BorderStyle:=bsNode;

2、使Form透明,即只显示控件,假设Form尺寸:300*400,控件尺寸:200*200;

a、procedure TForm1.FormCreate(Sender: TObject);

  begin
    BorderStyle := bsNone;
    Brush.Style := bsClear;
  end;

  只是使Form透明了,但所占据的空间还在,即点击Form的透明区域,其他应用获取不到焦点,鼠标其实还在From上。

b、设置Form的Color和TransparentColorValue属性值相同,并且使TransparentColor值为True。

  该方法可以使Form真正的透明,即使点击Form的透明区域,其他的应用也可以获得焦点,就好像透明区域真的不存在一样。

Delphi 窗体无边框,透明的设置