怎么改变状态栏显示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.

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7.   Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls, ToolWin;
   
8. 
   
9. type
   
10.   TForm1 = class(TForm)
    
11. 
    
12.     StatusBar1: TStatusBar;
    
13.     ToolBar1: TToolBar;
    
14.     SpeedButton1: TSpeedButton;
    
15.     procedure FormShow(Sender: TObject);
    
16.      procedure FormCreate(Sender: TObject);
    
17. 
    
18. 
    
19.   private
    
20.     { Private declarations }
    
21.   public
    
22.   procedure SetHintInfo(Sender: TObject);
    
23.     { Public declarations }
    
24.   end;
    
25. 
    
26. var
    
27.   Form1: TForm1;
    
28. 
    
29. implementation
    
30. 
    
31. 
    
32. {$R *.dfm}
    
33. 
    
34. procedure TForm1.FormShow(Sender: TObject);
    
35. begin
    
36.    statusbar1.Panels[1].Text:=formatdatetime('yyyy-mm-dd',now);
    
37.    statusbar1.Panels[3].Text:=formatdatetime('hh:mm:ss',now);
    
38.   // application.createform(tforma,forma);
    
39.   // forma.showmodal;
    
40.   // forma.free;
    
41. 
    
42. end;
    
43. 
    
44. procedure TForm1.FormCreate(Sender: TObject);
    
45. begin
    
46.   Application.OnHint :=SetHintInfo;
    
47. 
    
48. end;
    
49. 
    
50. procedure TForm1.SetHintInfo(Sender: TObject);
    
51. begin
    
52.   StatusBar1.Panels[5].Text := Application.Hint;
    
53. end;
    
54. 
    
55. end.

复制代码

哥哥123

我来看看