0

尝试同时在任务栏上显示多个表单时，我遇到了一个小问题。我发现我需要使用以下内容：

WS_EX_APPWINDOW

所以我搜索了一下，然后找到了它：

class TForm2 : public TForm
{
__published:    // IDE-managed Components
private:        // User declarations
public:         // User declarations
        __fastcall TForm2(TComponent* Owner);
        void __fastcall CreateParams(Controls::TCreateParams &Params);

};

void __fastcall TForm2::CreateParams(Controls::TCreateParams &Params)
{
  TForm::CreateParams(Params);
  Params.ExStyle   = Params.ExStyle | WS_EX_APPWINDOW;
  Params.WndParent = ParentWindow;
}

然而，该函数仅适用于 VCL（TCreateParams 不是 Fmx::Controls 的成员）。

所以，我又搜索了一下，找到了（这个函数在 OnCreate 表单函数中）：

SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_APPWINDOW);

但是我说错了以下内容：

[bcc32 Error] Codigo.cpp(19): E2034 Cannot convert 'TWindowHandle * const' to 'HWND__ *'
  Full parser context
    Codigo.cpp(18): parsing: void _fastcall TfrmCodigo::FormCreate(TObject *)
[bcc32 Error] Codigo.cpp(19): E2342 Type mismatch in parameter 'hWnd' (wanted 'HWND__ *', got 'TWindowHandle *')
  Full parser context
    Codigo.cpp(18): parsing: void _fastcall TfrmCodigo::FormCreate(TObject *)

你知道其他的替代方法吗？如果你能帮助我，从现在开始，非常感谢！

4

1 回答 1

1

您显示的代码片段仅适用于 VCL。

FireMonkey 不允许您像 VCL 那样自定义创建表单的 HWND。HWND 创建隐藏在 FireMonkey 内部使用的私有接口后面（TPlatformWin.CreateWindow()）。这就是为什么CreateParams在 FireMonkey 中没有。

但是，您仍然可以访问 HWND，但必须在创建后才能访问。有一个WindowHandleToPlatform()函数（替换旧FmxHandleToHWND()函数）和一个FormToHWND函数（WindowHandleToPlatform()内部使用）。所有这些函数都是 Windows 特定的，因此#ifdef如果您正在编写在多个平台上运行的 FireMonkey 代码，则必须将它们包装起来。

试试这个：

#ifdef _Windows
#include <FMX.Platform.Win.hpp>
#endif

...

#ifdef _Windows
//HWND hWnd = FmxHandleToHWND(Form2->Handle);
//HWND hWnd = WindowHandleToPlatform(Form2->Handle)->Wnd;
HWND hWnd = FormToHWND(Form2);
if (hWnd != NULL)
{
    LONG Style = GetWindowLong(hWnd, GWL_EXSTYLE); // <-- don't forget this step!
    SetWindowLong(hWnd, GWL_EXSTYLE, Style | WS_EX_APPWINDOW); 
}
#endif

另见：

embarcadero WindowHandleToPlatform c++ 示例

于 2015-03-08T20:17:19.620 回答