掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マウスドラッグ中にボタンを離させるには？ (ID:22460)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
あまりスマートな方法ではないですが位置を再セットしてみるとか --------------------------------------- interface ・・・ const WM_DELAYEDEVENT = WM_APP+1; EV_SETPOS = 0; type TForm1 = class(TForm) ・・・ private procedure WmDelayedEvent(var Msg:TMessage); message WM_DELAYEDEVENT; ・・・ end; implementation procedure TForm1.WmDelayedEvent(var Msg: TMessage); begin if Msg.WParam = EV_SETPOS then begin SetBounds(Msg.LParamLo, Msg.LParamHi, Width, Height); Msg.Result := 1; end; end; procedure TForm1.hogehoge; begin ReleaseCapture; PostMessage(Form1.Handle, WM_DELAYEDEVENT, EV_SETPOS, Left + (Top shl 16)); end; --------------------------------------- ドラッグをキャンセルさせる時に hogehogeを呼べばよいかな （あくまでも参考ということで）
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.