掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マウスのx方向、y方向の移動量dx、dyを検知して操作するには？ (ID：28036)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
忘れてしまいましたが、Delphi5だと TControl のメソッドが無いのかもしれません。 その場合は、APIを使って以下のようにします。 Label を三つフォームに貼っておいて procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var p:TPoint; begin Label1.Caption := Format('Clicent Pos: %d , %d',[X, Y]); p := Point(X,Y); Windows.ClientToScreen(Handle, p); Label2.Caption := Format('Screen Pos: %d , %d',[p.X ,p.Y]); Windows.ScreenToClient(Handle, p); Label3.Caption := Format('Client Pos: %d , %d',[p.X ,p.Y]); end; 最初の引数は、ウィンドウハンドルで、上の例では Form1.Handle を 設定しています。Panel1 などの場合は、Panel1.Handle をセットします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.