具有自定义风格的Delphi项目

Question

我想创建一个具有自定义样式的Delphi项目，例如下面的图像。

如您所见，主体是透明的，其中有一些组件。

如何创建这个透明的主角？

PS：我想创建VCL项目，然后由Photoshop绘制了此图像。

Answer 1

假设您使用的是FireMonKey，因为您没有指定VCL或FMX。

您实际上不需要为此创建一种样式。更简单的方法是：

1. 将表单透明属性设置为true
2. 将trectangle放在表单上，​​并使其与最左右和将颜色等调整为您的喜好。
3. 将另一个trectangle放在您的表单上，并将对齐设置为client。然后，您可以调整不透明度透明度的属性，fill color> color的属性，然后stroke> stroke << 代码>边框。
4. 我看到照片中左右之间有一个小空间。这可以通过在第二个trectangle上设置保证金左值来完成。

现在，这应该看起来像您希望提供的东西，您可以禁用表单的边界。我们还需要做1件事，以避免将控件显示为透明。我们需要在表单上放置一个布局。不是矩形。如果将控件放置在矩形上，则控件也将是透明的。如果您希望控件具有相同的透明值，则将其放在矩形上。否则请执行以下操作：

1. 将tlayout放在表单上。不是矩形。
2. 将对齐属性设置为内容。这将使它重叠。
3. 将布局的<代码>左属性设置为您放置的左矩形宽度 +您放置的客户矩形的边距值，以补偿小空间。
4. 将您的控件放在布局上，它们应以默认不透明度显示。

要做的最后一件事是实现窗口拖动。假设您禁用了边框，则您的用户将无法移动窗口，因为没有边框可以拖动。在组件的Mousedown事件中，您希望拖动启动添加以下代码：

procedure TForm1.rctngl1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  StartWindowDrag;
end;

现在应该完成。

编辑：发布此答案后，我举了一个示例：