状态栏编程如何实现？？？

Question

你说的是不是 
 StatusBar1.Panels[1].Text:='Notice Test';

Answer 1

你放一个statusbar1的状态栏控件。在addition在面板还是在其它面板里面

Answer 2

WHandle : THandle ;
//显示状态栏
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowWindow(WHandle,SW_SHOW) ;
end;//得到状态栏的窗口句柄
procedure TForm1.FormCreate(Sender: TObject);
begin
  WHandle := FindWindow('Shell_TrayWnd',nil) ;
end;
//隐藏状态栏
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowWindow(WHandle,SW_HIDE) ;
end;//使程序不出现在状态栏上
procedure TForm1.FormCreate(Sender:TObject) '
begin
  SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW) ;
end ;

Answer 3

uses ShellApi ;
var
  IconData : TNotifyIconData ;
  myIcon : TIcon ;
begin
myIcon := TIcon.Create ;
myIcon.LoadFromFile(*the path) ;
IconData.cbSize := SizeOf(IconData) ;
IconData.Wnd := self.Handle ;
IconData.uID := ICON_ID ;
IconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP ;
IconData.hIcon := myIcon.Handle ;
IconData.szTip :='Hello World!!!' ;
Shell_NotifyIcon(NIM_ADD,@IconData) ;
end ;