マウスによる入力 のバックアップ(No.1)

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• 現在との差分 - Visual を表示
• ソース を表示
• マウスによる入力 へ行く。
  • 1 (2011-11-24 (木) 12:46:53)

ユーザーがマウスを使って図形を描くプログラムを作るには、
ユーザーがマウスで入力した位置の座標を取得するための手続きや関数を使います。

クリックされた座標を取得する

手続き「GetPt」はマウスクリックされるまでプログラムは待機し
クリックされたらその座標を返します。
以下のプログラムを実行するとマウスカーソルの形状が「+」に変わります。
用紙の上をクリックすると、クリックした位置に基準点が配置されます。
例題プログラム

PROCEDURE TEST;

VAR

		x,y:REAL;
BEGIN
		Getpt(x,y);
		Locus(x,y);
END;
Run(TEST);