フォームからフォームへのTButtonのドラッグ

Question

私はDelphi GUIアプリケーション（RADスタジオ2010）を持っており、ユーザが自分のワークスペースを再配置できるようにしたいと考えています。私はTButtonsを同じフォームでドラッグ可能にする方法を知っていますが、ユーザーがあるフォームから別のフォームにボタンをドラッグできるようにする方法はありません。 TButtonをクリックしてドラッグしようとすると、ドラッグアンドドロップ操作のように扱われるとは思いません。 TButtonを複数のフォーム間でドラッグアンドドロップできるようにするにはどうすればよいですか？

Answer 1

まず、ボタンのDragModeをdmAutomaticに設定するか、ボタンがマウスダウンしたときに手動でBeginDragを呼び出します。次に、ドラッグするフォームのOnDragOver + OnDragDropイベントを使用します。

Answer 2

ターゲットフォームのOnDragDropイベントを使用して、ボタンのParentプロパティを更新します。

Answer 3

私は、ドラッグアンドドロップのDelphiのバージョンとどのように行うのか分からないが、それは今あなたが強制している場合を除き

IDataObject 

と

IDropTarget 

とシェルのドラッグ＆ドロップに最適ですDelphiの限定されたエミュレーションではなく、ドラッグドロップのためにWindow独自のAPIを使用することができます。