AppHint

ヒントをステータスバーに表示するようなアプリケーションのためのコード。

unit Unit1;

interface

uses
  Classes, Forms, Menus, Controls, ComCtrls;

type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
  private
    procedure AppHint(Sender: TObject);
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.AppHint(Sender: TObject);
begin
  //StatusBar1.SimplePanel を True にしておくこと。
  StatusBar1.SimpleText := Application.Hint;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnHint := AppHint;
end;

end.

Return index page