Drag&Drop된 위치(컴포넌트) 가져오기

이전 글 참조 -> 

2019/03/08 - [Delphi/꿀팁] - Drag&Drop된 파일정보 가져오기 - 1

procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
  DropHandle: HDROP;
  tmpPoint: TPoint;
  tmpComp: TWinControl;
begin
  inherited;
  
  DropHandle := Msg.Drop;
  
  try
    DragQueryPoint(DropHandle, trmpPoint); //FindVCLWindow로 DragRrop된 위치의 컴포넌트를 가져옵니다.

    tmpComp := FindVCLWindow(ClientToScreen(tmpPoint));
    
    if tmpComp.ClassName = 'TMemo' then
      ShowMessage(TMemo(tmpComp).Name);
  finally
    DragFinish(DropHandle);
  end;
  
  Msg.Result := 0;
end;