如何绘制delphi组框以具有透明背景

时间:2008-09-30 18:43:03

标签: winforms delphi transparency vcl

我正试图让一些非常微妙的工作,现在看起来非常糟糕。我正在尝试绘制一个TGroupBox的背景,我已经重载了绘制函数,以便角落显示到它们的父对象。我有一堆嵌套的组合框,看起来非常像没有XPThemes。

有没有办法在运行时绘制透明背景的一部分。我正在编写表单生成器,而不是使用Delphi设计视图。

4 个答案:

答案 0 :(得分:2)

当我遇到这样的情况时,我最初使用TGroupBox但后来决定使用TPaintBox(在此示例中称为pb)并模拟TGroupBox的图形部分。

procedure TfraNewRTMDisplay.pbPaint(Sender: TObject);
const
  icMarginPixels=0;
  icCornerElipsisDiameterPixels=10;
begin
  pb.Canvas.Pen.Color:=clDkGray;
  pb.Canvas.Pen.Width:=1;
  pb.Canvas.Pen.Style:=psSolid;
  pb.Canvas.Brush.Color:=m_iDisplayColor;
  pb.Canvas.Brush.Style:=bsSolid;
  pb.Canvas.RoundRect(icMarginPixels,
                      icMarginPixels,
                      pb.Width-icMarginPixels*2,
                      pb.Height-icMarginPixels*2,
                      icCornerElipsisDiameterPixels,
                      icCornerElipsisDiameterPixels);
end;

答案 1 :(得分:1)

我正在尝试使用以下步骤复制此问题:

1 - 将主题设置为Windows XP默认

2 - 在空表格上删除TGroupBox(align = alNone)

3 - 在第一个中放下两个TGroupBox,其中align = alBottom和align = alClient

但在视觉上看起来对我来说很好。

您能否提供一些关于您如何设计表单的更多信息?从.DFM粘贴的一些代码没问题。

以下是我的DFM的相关部分:

  object GroupBox1: TGroupBox
    Left = 64
    Top = 56
    Width = 481
    Height = 361
    Margins.Left = 10
    Caption = 'GroupBox1'
    ParentBackground = False
    TabOrder = 0
    object GroupBox2: TGroupBox
      Left = 2
      Top = 254
      Width = 477
      Height = 105
      Align = alBottom
      Caption = 'GroupBox2'
      TabOrder = 0
    end
    object GroupBox3: TGroupBox
      Left = 2
      Top = 15
      Width = 477
      Height = 239
      Align = alClient
      Caption = 'GroupBox3'
      TabOrder = 1
    end
  end

答案 2 :(得分:1)

哈,这很蹩脚,我只是不需要在我的构造函数中设置ParentBackground := false并在适当的时候绘制组框的内部。

答案 3 :(得分:1)

  

哈,这很蹩脚,我只是不需要在构造函数中设置ParentBackground:= false并在适当的时候绘制组框的内部。

也许有一些我不知道的东西,但在我最近的经历中,它并不像听起来那么简单,因为主题和确切地知道要绘制的区域。甚至TCanvas.FloodFill也无法可靠地完成这项工作,可能是因为有时操作系统不需要重新绘制所有内容。