掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マウスで移動できるボタンについて (ID:29111)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんなもんで var bDrag: boolean; ptBegin: TPoint; procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ptBegin := Point(X, Y); bDrag := TRUE; end; procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin bDrag := FALSE; end; procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var pt: TPoint; begin if bDrag=TRUE then begin pt := Form1.ScreenToClient(Button1.ClientToScreen(Point(X, Y))); Button1.Left := pt.X-ptBegin.X; Button1.Top := pt.Y-ptBegin.Y; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.