名前
題名
▼ TSさん > ■ DLL_API void tvifGetMousePos(int *pos); > player2でウィンドウ内でマウスボタンがクリックされた位置を引数posにint[2]型ポイ > ンタで返す。取得される値は、 > pos[TVP_X] X 座標 > pos[TVP_Y] Y 座標 > である。 > > と説明にあるので下記の様に修正したのですが > > PTVP=^TVP ; > TVP=record > TVP_X:integer; // X 座標 > TVP_Y:integer; // Y 座標 > end; > > procedure tvifGetMousePos(var pos: PTVP); cdecl; external TvifExport; > > repeat > //この下は上手く行くマウスの動作が拾えます。 > if tvifGetMouseButton=TVIF_MOUSE_MIDDLE then > begin > beep; > tvifResetMouseButton; > end; > //ここが上手くないフリーズします。 > tvifGetMousePos(TVPos); > Form1.Label1.Caption:=IntToStr(TVPos^.TVP_X); > Form1.Label2.Caption:=IntToStr(TVPos^.TVP_Y); > 　until tvifGetStatus = TVP_STOP; > > これが出来ると画面の一部分を指定して > 画面の動作を止めるなりして、止めなくてもいい > ですけど、次の画面をその選択したものに > 変えるなどという事が出来ます。 > > クイズ番組も出来るでしょう > > 各説明に移動とかも出来るでしょう。 > > 考えたら切りが無いですが。 >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link