怎么改变状态栏显示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[1].Text:=formatdatetime('yyyy-mm-dd',now);
   statusbar1.Panels[3].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[5].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[1].Text:=formatdatetime('yyyy-mm-dd',now);
   statusbar1.Panels[3].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[5].Text := Application.Hint;
end;

end.

哥哥123

我来看看