谁知道netcaptor左侧的活页夹是用什么控件做的（鼠标离开自动收缩）？哪里有下载？(100分)

我看了半天，好像是abf控件，单到abf网站下载了abf免费控件，都是不可视控件。

自动做一个吧,捕捉鼠标消息就行了.
onmouseenter,onmouseleave

用SPY++一看就知道了，是一个Form，也就是说，将另一个Form嵌入到主窗口中。
目的：应该是为了盖住WebBrowser。
试一下就知道，好像没有什么控件可以盖住webbrowser，所以才想到用Form，不错的想法。

就是啊，自己写就是了，鼠标离开的时候，
用timer控件，
Width := Width - x;

给段代码先？射射！

多人接受答案了。

我刚才写的。
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);

private
{ Private declarations }
Procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
Procedure CMMouseEnter(var msg: TMessage); message CM_MOUSEENTER;

public
{ Public declarations }
end;
var
Form1: TForm1;
Direction : Boolean;
implementation

{$R *.DFM}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not Direction then
begin
Width := Width - 2;
form1.Caption := IntToStr(Width);
end
else
begin
Width := Width + 2;
form1.Caption := IntToStr(Width);
end;
if (width = 200) or (width = 120) then
begin
Timer1.Enabled := false ;
end;
end;
procedure TForm1.CMMouseLeave(var msg: TMessage);
begin
inherited;
Direction := false;
Timer1.Enabled := true;
end;

procedure TForm1.CMMouseEnter(var msg: TMessage);
begin
inherited;
Direction := true;
Timer1.Enabled := true;
end;

end.
窗体
object Form1: TForm1
Left = 4
Top = 185
BorderStyle = bsSingle
Caption = 'Form1'
ClientHeight = 348
ClientWidth = 122
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Timer1: TTimer
Enabled = False
Interval = 50
OnTimer = Timer1Timer
Left = 76
Top = 104
end
end