将多个标签设置为跨 1.000 个表单透明？

Question

我使用 Devexpress 对我的软件进行了蒙皮，发现标签不透明，导致它们具有灰色背景。

只有无穷无尽的表格，所以我想知道是否有办法自动完成这项任务（将标签设置为透明）。

我之前做过类似的事情，表单上的 Devexpress 控件具有 LookAndFeel.NativeStyle = True，我使用 Grep Search 将所有 dfm 表单上的替换为 False。然而，在标签的情况下，透明属性不存在。

谢谢。

Answer 1

您可以将BackColor 属性设置为Color.Transparent。

Answer 2

以下应该有效：透明属性仅在值不是默认值时出现在 DFM 文件中。因此，您可以使用 Grep-Search 在“=TLabel”之后的下一行中插入“Transparent=TRUE”。这个我自己没试过，但是很容易尝试...

Answer 3

在设计时，您可以只解析所有 .dfm 然后添加

  Transparent = True

紧随其后的一行

  object MyLabel : TLabel

行。

在运行时，您可以覆盖TCustomForm.DoCreate 和TCustomFrame.Create 方法，如下所示：

type
  THookedForm = class(TCustomForm)
    procedure HookedDoCreate;
  end;

  THookedFrame = class(TCustomFrame)
    constructor Create(AOwner: TComponent); override;
  end;

var
  PatchForm, OriginalForm: TPatchEvent;
  PatchPositionForm: PPatchEvent = nil;
  PatchFrame, OriginalFrame: TPatchEvent;
  PatchPositionFrame: PPatchEvent = nil;

procedure PatchCreate;
var ov: cardinal;
begin
  // hook TForm:
  PatchPositionForm := PPatchEvent(@THookedForm.DoCreate);
  OriginalForm := PatchPositionForm^;
  PatchForm.Jump := $E9; // Jmp opcode
  PatchForm.Offset := PtrInt(@THookedForm.HookedDoCreate)-PtrInt(PatchPositionForm)-5;
  if not VirtualProtect(PatchPositionForm, 5, PAGE_EXECUTE_READWRITE, @ov) then
    RaiseLastOSError;
  PatchPositionForm^ := PatchForm; // enable Hook
  // hook TFrame:
  PatchPositionFrame := PPatchEvent(@TCustomFrame.Create);
  OriginalFrame := PatchPositionFrame^;
  PatchFrame.Jump := $E9; // Jmp opcode
  PatchFrame.Offset := PtrInt(@THookedFrame.Create)-PtrInt(PatchPositionFrame)-5;
  if not VirtualProtect(PatchPositionFrame, 5, PAGE_EXECUTE_READWRITE, @ov) then
    RaiseLastOSError;
  PatchPositionFrame^ := PatchFrame; // enable Hook
end;

{ THookedForm }

procedure THookedForm.HookedDoCreate;
var i: integer;
begin
  // enumerate all labels, then set Transparent := true
  for i := 0 to Components.Count-1 do
    if Components[i] is TLabel then
      TLabel(Components[i]).Transparent := true;
  DoCreate; // call initial code
end;

{ THookedFrame }

constructor THookedFrame.Create(AOwner: TComponent);
var i: integer;
begin
  // enumerate all labels, then set Transparent := true
  for i := 0 to Components.Count-1 do
    if Components[i] is TLabel then
      TLabel(Components[i]).Transparent := true;
  inherited Create(AOwner); // call normal constructor
end;

....

initialization
  PatchCreate;

Answer 4

全局Screen 变量跟踪所有形式：

procedure MakeLabelsTransparent(AParent: TWinControl);
var
  I: Integer;
begin
  with AParent do
    for I := 0 to ControlCount - 1 do
      if Controls[I] is TLabel then
        TLabel(Controls[I]).Transparent := True
      else if Controls[I] is TWinControl then
        MakeLabelsTransparent(TWinControl(Controls[I]));
end;

procedure TMainForm.ActiveFormChange(Sender: TObject);
begin
  with Screen do
    if (ActiveCustomForm <> nil) and (ActiveCustomForm.Tag = 0) then
    begin
      MakeLabelsTransparent(ActiveCustomForm);
      ActiveCustomForm.Tag := 1;
    end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Screen.OnActiveFormChange := ActiveFormChange;
end;

如果您必须对特定表单使用 Tag 属性，则省略此检查：它不会真的变得那么慢。

Answer 5

对于此类任务，GExperts 包含 设置组件属性 工具：

此工具在后台等待 直到你编译一个项目。那么它 扫描当前项目的表格到 检查具有某些成分的 属性和改变那些 属性为定义的值。这 工具对于停用数据集很有用 或您之前的数据库连接 编译您的应用程序，但它可以 用于任何类似的情况 好吧。要激活扫描， 启用此旁边的复选框 GExperts 配置专家 屏幕。

它也可用于设置尚未在 DFM 中的属性，并且只需要在 GExpert 配置中添加一个条目，然后重新编译。

我刚刚对其进行了测试，它按预期工作。

Answer 6

一个相关提示（我总是忘记使用这个方便的功能）：

1. 按照您想要的方式配置标签；
2. 在表单上选择它；
3. 转到Component/Create component template；
4. 然后您可以为模板命名：

从那时起，模板将在您的工具面板中显示为一种新的组件类型，并具有您喜欢的设置。

_{（是的，我知道这不会改变当前标签）}