掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
OnMouseUpを検出するには？ (ID:5288)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Panel1とPanel2をFormに貼り付けます。 Panel1にImage1を貼り付けます。 Panel2のDragOver,DragDropは それぞれTForm1.Panel1DragOver,TForm1.Panel1DragDrop を指定します。 procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer); begin Image1.Parent:=(Sender as TPanel);//駒の移動先(この場合はPanel2)を取得します end; procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept:=true; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.