新建一Project1，在form1中添加控件statusbar
1(Win32页)和控件IdIPWatch1(Indy Misc页)。接着设置好控件属性：在statusbar1的panels中添加0-TStatusPanel和1-TStatusPanel两项；IdIPWatch1的HistoryEnabled的属性设为False。
编写代码：在TForm1.FormCreate(Sender: TObject)中加入以下代码：
statusbar1.Panels[1].Text:=IdIPWatch1.LocalIP;
OK！按下F9功能键，运行程序，看一下窗口下边状态栏中是不是已经显示了本机的IP地址了？
提示：若IdIPWatch1的HistoryEnabled的属性设为True，则会在程序退出时，自动生成一个文件(文件名为HistoryFileName属性设定的值)，记录当前的IP地址。
（T127）
上一篇： Delphi下实现QQ窗体自动隐藏探索简介
下一篇： 一步步教你如何优化Delphi字串查找
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
