将hint显示在StatusBar1上_Delphi

  • 内容
  • 评论
  • 相关

我们为了将hint显示在StatusBar1上需要如下方法
public
procedure DisplayHint(Sender: TObject);
end;

var

Form1: TForm1;
implementation
{$R *.DFM}

http://www.gaodaima.com/65613.html将hint显示在StatusBar1上_Delphi

{ Here is the implementation of the OnHint event handler }

{ It displays the application抯 current hint in the status bar }
procedure TForm1.DisplayHint(Sender: TObject);
begin
StatusBar1.SimpleText := Application.Hint;
end;

{ Here is the form抯 OnCreate event handler. }

{ It assign抯 the application抯 OnHint event handler at runtime }
{ because the Application is not available in the Object Inspector }
{ at design time }
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint := DisplayHint;
end;
其实只需要将
StatusBar1.autohint:=true
即可完成

欢迎大家阅读《将hint显示在StatusBar1上_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: 将hint显示在StatusBar1上_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注