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。