SET WINDOW TITLE
SET WINDOW TITLE ( title {; window} )
| 引数 | 型 | 説明 | |
|---|---|---|---|
| title | 文字 | 🡒 | ウィンドウタイトル |
| window | WinRef | 🡒 | ウィンドウ参照番号, または 省略時カレントプロセスの最前面ウィンドウ |
説明
SET WINDOW TITLE コマンドはwindow に渡した参照番号のウィンドウのタイトルを、titleに渡したテキストに変更します (最大80文字)。
ウィンドウが存在しない場合、SET WINDOW TITLEは何も行いません。
window 引数を省略すると、SET WINDOW TITLEはカレントプロセスの最前面ウィンドウのタイトルを変更します。
Note: デザインモードで4Dはウィンドウタイトルを自動で変更します。例えばデータ入力時には“更新：テーブル”となります。ウィンドウタイトルを変更しても、4Dがそれを上書きしてしまいます。他方、アプリケーションモードでは4Dはウィンドウタイトルの変更を行いません。
例題
フォームでデータ入力を行っている間、長い時間のかかる処理を行うためにボタンをクリックします (例えばプログラムでリレーとするレコードをブラウズするなど)。カレントウィンドウのタイトルを使用して進捗状況を 知らせることができます:
// bAnalysis button Object Method
Case of
:(Form event code=On Clicked) //v17 以前ではForm event を使用すること
// 現在のタイトルを保持
$vsCurTitle:=Get window title
// 時間のかかる処理を開始
FIRST RECORD([Invoice Line Items])
For($vlRecord;1;Records in selection([Invoice Line Items]))
DO SOMETHING
// 進捗状況を表示
SET WINDOW TITLE("Processing Line Item #"+String($vlRecord))
End for
// 元のウィンドウタイトルに戻す
SET WINDOW TITLE($vsCurTitle)
End case