论坛 › Delphi交流 › 怎么改变状态栏显示HINT提示位置

一梦浮生 发表于 2013-8-7 00:30:09

怎么改变状态栏显示HINT提示位置

我在在指定的状态栏位置显示按钮的提示信息,怎么做?




f:\1.bmp

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls, ToolWin;

type
TForm1 = class(TForm)

    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    procedure FormShow(Sender: TObject);
   procedure FormCreate(Sender: TObject);


private
    { Private declarations }
public
procedure SetHintInfo(Sender: TObject);
    { Public declarations }
end;

var
Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
   statusbar1.Panels.Text:=formatdatetime('yyyy-mm-dd',now);
   statusbar1.Panels.Text:=formatdatetime('hh:mm:ss',now);
// application.createform(tforma,forma);
// forma.showmodal;
// forma.free;

end;

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

end;

procedure TForm1.SetHintInfo(Sender: TObject);
begin
StatusBar1.Panels.Text := Application.Hint;
end;

end.unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls, ToolWin;

type
TForm1 = class(TForm)

    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    procedure FormShow(Sender: TObject);
   procedure FormCreate(Sender: TObject);


private
    { Private declarations }
public
procedure SetHintInfo(Sender: TObject);
    { Public declarations }
end;

var
Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
   statusbar1.Panels.Text:=formatdatetime('yyyy-mm-dd',now);
   statusbar1.Panels.Text:=formatdatetime('hh:mm:ss',now);
// application.createform(tforma,forma);
// forma.showmodal;
// forma.free;

end;

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

end;

procedure TForm1.SetHintInfo(Sender: TObject);
begin
StatusBar1.Panels.Text := Application.Hint;
end;

end.

哥哥123 发表于 2015-7-25 20:06:29

我来看看

查看完整版本: 怎么改变状态栏显示HINT提示位置