imageコントロールをフォームの好きな場所に移動できる様にしたいのですが、
ボタンやパネルの様にはいかないので困ってます。
ReleaseCapture;
Image1.perform(WM_SysCommand, SC_DragMove,0);
//イベントはマウスダウンに書いています。
よろしくお願いします。
ベベルをなくしたパネルにイメージを置いて、そのパネルをドラッグするようにしてみてはどうですか？
編集 削除にしのさんどうもです。
それは、パネルいっぱいにimageを広げては駄目なんですよね。
netmeetingのwhiteboardのように一度描いたものをオブジェクト？化して
マウスムーブで自由に配置したいのです。
imageだと背景抜きがあるので便利なのですが、
さっぱり思いつきません。
FDELPHIの過去ログを読んでたんですが
*
begin
if FIsMouseDown then
with Sender as TControl do // この１行を抜くとフォームの移動になる
SetBounds(Left - FMousePoint.x + X,
Top - FMousePoint.y + y,
Width, Height);
end;
>>FIsMouseDownはFLAG
かいけつしました。