掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マウスについてくる文字 (ID：22756)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
例えばラベルのドラッグなどは以下のようにしてできますが、 参考にはならないでしょうか？ { Private 宣言 } g_boDuringDown: Boolean; g_iX, g_iY: integer; procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin g_boDuringDown := True; g_iX := X; g_iY := Y; end; procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if g_boDuringDown then begin Label1.Left := Label1.Left + (X - g_iX); Label1.Top := Label1.Top + (Y - g_iY); end; end; procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin g_boDuringDown := False; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.