SET CURSOR
SET CURSOR {( cursor )}
| 引数 | 型 | 説明 | |
|---|---|---|---|
| cursor | Integer | → | Mac OS ベースのカーソルリソース番号 |
このコマンドはスレッドセーフではないため、プリエンプティブなコードには使えません。
説明
SET CURSOR コマンド はマウスカーソルを、cursor 引数に渡したID番号のシステムカーソルへと変更します。
このコマンドはOn Mouse Move Form event codeのコンテキスト内で呼び出されなければなりません。
マウスカーソルは標準の矢印に戻すためには、引数を渡さずにコマンドを呼び出します。
以下は、引数 cursor に渡すことのできる基本カーソルです。
| 番号 | カーソル |
|---|---|
| 1 |  |
| 2 |  |
| 4 |  |
| 9000 |  |
| 9001 |  |
| 9003 |  |
| 9004 |  |
| 9005 |  |
| 9006 |  |
| 9021 |  |
| 351 |  |
| 9010 |  |
| 9011 |  |
| 9013 |  |
| 9014 |  |
| 9015 |  |
| 9016 |  |
| 9017 |  |
| 9019 |  |
| 9020 |  |
| 559 |  |
| 560 |  |
注: カーソルが使用可能状況とその見た目はOSによって変化する場合があります。
例題
マウスがフォーム内の変数エリア上に来た際に、カーソルを に表示させたい場合を考えます。この場合、変数のオブジェクトメソッド内に、以下の様に記述します:
If(Form event code=On Mouse Move)
SET CURSOR(9019)
End if