掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
システムメニューの左マウス押下での処理メッセージの流れを監視するには (ID:29375)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
受信側を以下のようにして普通に操作できるんだけどね・・・ procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread); var Host : String; Port : Integer; X,Y : Word; MSG : Cardinal; begin StatusBar1.Panels[0].Text := DateTimeToStr(Now); Host := AThread.Connection.Socket.Binding.PeerIP; Port := AThread.Connection.Socket.Binding.Port; AThread.Connection.ReadBuffer(MSG,SizeOf(MSG)); AThread.Connection.ReadBuffer(X,SizeOf(X)); AThread.Connection.ReadBuffer(Y,SizeOf(Y)); SetCursorPos(X,Y); case MSG of WM_LBUTTONDOWN,WM_NCLBUTTONDOWN:MOUSE_EVENT(MOUSEEVENTF_LEFTDOWN ,0,0,0,0); WM_RBUTTONDOWN,WM_NCRBUTTONDOWN:MOUSE_EVENT(MOUSEEVENTF_RIGHTDOWN,0,0,0,0); WM_LBUTTONUP ,WM_NCLBUTTONUP :MOUSE_EVENT(MOUSEEVENTF_LEFTUP ,0,0,0,0); WM_RBUTTONUP ,WM_NCRBUTTONUP :MOUSE_EVENT(MOUSEEVENTF_RIGHTUP ,0,0,0,0); end; AThread.Connection.Disconnect; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.