delphi - Delphi:Vcl样式和拖放

Question

我是Delphi程序员，但有一个问题。我使用TStyleManager创建表单，并在应用程序上使用皮肤。但是我也想在我的应用程序中使用“拖放”文件。我怎么能意识到这一点？我尝试了很多方法，但是……我做不到。希望对您有所帮助

Answer 1

更改vcl样式时，将重新创建表单的句柄，因此，如果在设置样式之前调用了DragAcceptFiles函数，则应用样式时使用的句柄将不同。要修复该问题，请以这种方式执行DragAcceptFiles函数。

 TStyleManager.SetStyle(StyleName);
 Application.ProcessMessages;//process the message queue;
 DragAcceptFiles( Handle, True );