DELPHI中状态条构件的妙用.doc

Delphi中状态条构件的妙用[1999-06-21] Delphi中状态条构件的妙用[1999-06-21] 胡晓鹰 　　TStatusBar构件的主要属性 　　实际使用过程中，我们常用的只有一个：Panels属性。这个属性本身是一个TStatusPanels 对象，而在一个状态条可以有很多个TStatusPanels对象。在这个TStatusPanels对象中，我们经 常使用的是其中的Text和Style属性。比如： 　　StatusBar1.Panels[0].Text := ′这是显示在状态条中的Hint′; 　　表示显示在StatusBar1中的Panels[0]中的字符串 　　要创建状态条构件的TStatusPanels对象相当简单： 　　(1）双击状态条构件，Delphi4会自动弹出Editing StatusBar1 Panels对话框。 　　(2）在这个对话框中用鼠标单击左上角的Add New按钮或者使用Insert键就可以向StatusBar 中增加TStatusPanels对象了。 　　(3）任意选择一个TStatusPanels对象，在属性观察器（Object Inspector）中可以设置每个 TStatusPanels对象的属性。 　　显示当前选择的选单项的有关信息 　　我们希望用户把鼠标移动到某个选单项的时候，自动在状态条中显示关于这个选单的功能、 使用注意事项等。 　（1）在Form上放置一个TStatusBar构件，设置其Name为StatusBar1。 　（2）在Form上放置一个TMainMenu构件，设置其Items属性，并且设置选单中的每个 TMenuItem对象的Hint属性。 　　 (3）增加以下代码： 　　 procedure TForm1.FormCreate(Sender: TObject); 　　 begin 　　Application.ShowHint := True; 　　Application.OnHint := DoShowHint; //指定显示系统Hint的过程 　　 end; 　　 procedure TForm1.DoShowHint(Sender : TObject); 　　 begin 　　　　StatusBar1.Panels[0].Text := Application.Hint; //显示应用程序的提示 　　 end; 　　显示锁定键的状态 　　为了实时显示锁定键盘的当前状态，我们需要一个TTimer构件，每隔一定的时间检测锁 定键的当前状态，并把检测出来的结果显示在状态条中。　 　　 procedure TForm1.FormCreate(Sender: TObject); 　　 begin 　　 Timer1.Enabled := True; 　　 //注意：在本例子中Timer1的Interval属性不能设置的过大，否则容易造成检测锁定键当 前状态的延迟 　　 Timer1.Interval := 10; 　　 end; 　　 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState); 　　 begin 　　　　CheckKeyBoard; 　　 end; 　　 procedure TForm1.CheckKeyBoard;　//显示锁定键盘的当前状态 　　 begin 　　　　If Odd(GetKeyState(VK—INSERT)) then 　　　　StatusBar1.Panels[0].Text := ′改写′ 　　else 　　　　StatusBar1.Panels[0].Text := ′插入′; 　　If Odd(GetKeyState(VK—CAPITAL)) then 　　　　StatusBar1.Panels[1].Text := ′大写′ 　　else 　　　　StatusBar1.Panels[1].Text := ′小写′ 　　 end; 　　 procedure TForm1.Timer1Timer(Sender: TObject); 　　 begin 　　　　CheckKeyBoard; 　　 end; 　　特殊显示效果的实现 　　除了以上两种常见的效果以外,我们还可以