如何制作透明的Panel,紧急,设40分,留下36分,别介意

Question

Panel1.Brush.Style:=bsClear; 在哪里改动

Answer 1

panel有个parentcolor的属性，可以设定为和其夫容器的颜色一致，那算不算透明效果呢？

Answer 2

这不算, 因为panel底下是图像并不是一个单一的颜色

Answer 3

使用override函数制作
在form.create()中：
form1.brush.style:=bsclear;
form1.borderstyle:=bsnone;
启动后，窗体透明，但窗体下覆盖的东西不可见。
编写 procedure CreateParams()事件
procedure CreateParams(var Params:TCreateParams);
begin
 inherited CreateParams(Params);   //创建绘制窗体时的参数设置
 Params.ExStyle:=WS_EX_TRANSPARENT;//参数中的窗体风格设置为透明
end;
经过设置后，窗体后的画面就可见了。

Answer 4

这样做是使窗体透明, 而不是panel透明

Answer 5

窗体上右键->view as text，删除里面所有东西
再把下面的粘贴上去，再按alt+F12，看看是不是你要实现的效果！
object Form1: TForm1
  Left = 192
  Top = 107
  Width = 544
  Height = 375
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBImage1: TDBImage
    Left = 144
    Top = 64
    Width = 225
    Height = 241
    TabOrder = 0
    object DBText1: TDBText
      Left = 32
      Top = 16
      Width = 65
      Height = 17
    end
  end
end

Answer 6

去看看阿～～这里有得～～
http://aizb.myetang.com/subpage/content.htm#控件作品

Answer 7

用CoolControl中的CoolPanel就可以轻松搞定