delphi - Firemonkey 组件在运行时移动

Question

简介:

我有一个从 TCustomPanel 类派生的自定义 VCL 组件，其目的是充当某种具有父级(主窗体)的自定义表单，但所有默认按钮(例如最大化、最小化、关闭)。该组件的开发早于 FMX，它是现有应用程序的重要组成部分。该组件正在捕获消息、重写 Paint 方法等。

该组件的主要功能是具有与常规表单类似的功能(在运行时在其父级中 float 、拖动...)，但具有一些自定义图形(较小的按钮等...)

手头的任务:

我正在努力重写 FireMonkey (Delphi XE2) 的组件，包括这个 float 窗口以及是否有任何必要这样做。
(我不想混合 VCL 和 FMX，因为在某些时候我希望在 FMX 中拥有整个应用程序。)

问题:

1. 是否有现有的具有 float /功能的FMX控件 在运行时拖动/移动？

2. Firemonkey 中启用例如的方法是什么？ T面板移动 在运行时或者是否有一个控件通过以下方式提供该功能 默认？我猜 FMX 的整个想法是覆盖现有的 方法。

3. 在同一个应用程序中是否可以有不同的表单 风格？我正在考虑使用 custom 创建我的自定义表单 风格。在这种情况下，我可以有一个主表单(父表单)和子表单 具有不同风格的表单。

谢谢!

Answer 1

对于 1 和 2，您会发现 OnMouseXXXX 事件非常容易让您自己使用(或者如果您正在开发自定义组件，则可以使用 protected 虚拟方法)。

对于 3，在每个表单上放置一个 TStyleBook 并将所需的样式加载到其中(记住设置表单的 StyleBook 属性)。您还可以将样本属性指向不在表单上的实例，例如以另一种形式或全局对象。如果您这样做，请注意在释放表单之前将其 StyleBook 属性置零，否则您将获得 AV。