delphi浮动工具栏实例

浮动工具栏
实例说明
通常情况下，窗体显示在屏幕的中心。对于使用频率非常高的软件，通常放在屏幕上端以浮动工具栏形式显示。下面通过实例介绍浮动工具栏的设计方法。运行程序，窗体可以停在屏幕的任意位置，当窗体失去焦点后，窗体自动隐藏，效果如图1.8所示

技术要点
窗体是否要隐藏，重要的是要判断是否在操作中，通过窗体的Active属性，可以确定窗体是否具有焦点。在窗体有焦点时，该窗体正在被操作，这时需要完全显示在屏幕当中；如果窗体没有焦点，通过设置窗体到屏幕的高度来确定窗体的隐藏部分。在TTimer组件的OnTimer事件中，窗体没有焦点时，隐藏工具栏，代码如下：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if self.Active=False then
self.Top:=-30;
end;
注意：如果设置窗体的Color属性与TransparentColorValue属性为相同的颜色值，并设置窗体的TransparentColor属性为True，运行时窗体将是透明的。
实现过程
1.新建一个工程，该工程会自动创建一个主窗体，默认命名为Form1。
2.在窗体上添加TTimer组件和TImage组件。
3.相关组件的主要属性如表1.2所示


表1.2主要组件对象的属性列表
4.程序代码如下：
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
self.Close;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
ShellExecute(handle,'open',pchar(Combobox1.Text),nil,nil,SW_show);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
self.Left:= 200;
self.Top :=-30;
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
self.Top:=10
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if self.Active=False then
self.Top:=-30;
end;
end.