掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マウスを動かさずにOnMouseMoveイベントを発生させるには？ (ID：7200)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
マウスカーソルの位置というは引数のX,Yですが... procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var AP1,AP2: TPoint; begin AP2.X:=X; AP2.Y:=Y; Canvas.TextOut(20,20,'X='+IntToStr(X)+' Y='+IntTosTr(Y)); AP1:=Button1.ClientToScreen(AP2); Canvas.TextOut(20,40,'X='+IntToStr(AP1.X)+' Y='+IntTosTr(AP2.Y)); end; な感じの値のことですか． それでさっきのマウスイベントですが，以下ならButton1のクリックで発生 します．意味があるかどうかはともかく... procedure TForm1.FormCreate(Sender: TObject); begin OnMouseMove:=nil; end; procedure TForm1.Button1Click(Sender: TObject); begin OnMouseMove:=FormMouseMove; FormMouseMove(Self,[ssShift],0,0); end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin ShowMessage('MouseMoveイベント発生'); OnMouseMove:=nil; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.