SET WINDOW TITLE

4D v20 R7

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

参照

Get window title