Delphi-何时调用DragAcceptFiles

任何TwinControl的Hwnd都可以在其生存期内多次创建和重新创建。调用dragaAcceptFiles()的最佳位置是overriden createwnd()和destroywnd()方法,以便您可以(重新)在所有(重新)创建期间注册,并在所有销毁期间注销,例如:

procedure TMainForm.CreateWnd;
begin 
  inherited;
  DragAcceptFiles(Handle, True);  
end;

procedure TMainForm.DestroyWnd;
begin 
  DragAcceptFiles(Handle, False);
  inherited;
end;

这个 FormShow 在应用程序中多次激发的事件表示窗体句柄至少被销毁并重新创建一次,很可能是因为更改了要求重新创建窗口句柄的属性之一。改变“保持顶端”就是一个例子。

如果重新创建了句柄,那么新的句柄当然不会接收以前注册的句柄要接收的任何消息。

你需要做的是打电话 DragAcceptFiles() 在最后一个句柄被创建之后,或者(这可能很难做到)确实多次。

我发现这样的问题很容易通过一条自定义消息来处理,您可以在FormCreate中向自己发布该消息。例如:

CONST
  wm_FirstRun = WM_USER + 101;


TYPE
  TForm1 = class(TForm)
  :
    Procedure wmFirstRun(var Msg:tMessage); message wm_FirstRun;
    procedure FormCreate(Sender: TObject); 
  :
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // other initialization code
  PostMessage(handle,wm_FirstRun,0,0);
end;

Procedure TForm1.wmFirstRun(var Msg:tMessage);
begin
  // handle the code here that will run once the form is processing messages
end;

触发机制是 PostMessage 因此,每当您调用该命令时,它都将调用您的自定义消息例程。当然,如果是这样的话,我会称之为wmfirstrun以外的东西。