qicq类似的界面，可以实现我的好友黑名单类似的按钮，谁要？附：oicq的自动隐藏是如何是实现的？(0分)

qicq类似的界面，可以实现我的好友黑名单类似的按钮，谁要？附：oicq的自动隐藏是如何是实现的？

我要。。谢谢：）
mouse_delphi@163.com

我会用VB写这个东东！delphi就不会了，给我一个让我看看！大吗？lianpu@km169.net

chshanghai@sina.com
我看看

我要！谢谢：）
maochan@263.net

请给我一份，谢谢！
email:hhp98@163.com

给上一份吧，谢谢！
pan_lijun@sina.com

thomashukaidi@etang.com
thank very much

netabloid@163.com

thanks,
ych2071@sina.com

用Timer来实现，QQ好像是100毫秒检测一次鼠标的位置，如果位置在范围内就弹出窗口或者
渐渐的隐藏窗口！

OK!thanks!
mycool@371.net

我也来一份 luckey@263.net

我也要：x_qiang@ynmail.com

unit unitqq;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, Buttons, jpeg, ExtCtrls;
type
TFormqq = class(TForm)
Image1: TImage;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButtonhy: TSpeedButton;
SpeedButtonts: TSpeedButton;
SpeedButtonmsr: TSpeedButton;
SpeedButtonhmd: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButtonskins: TSpeedButton;
SpeedButton11: TSpeedButton;
PopupMenu1: TPopupMenu;
skin11: TMenuItem;
skin21: TMenuItem;
skin31: TMenuItem;
procedure SpeedButtonhyClick(Sender: TObject);
procedure SpeedButtontsClick(Sender: TObject);
procedure SpeedButtonmsrClick(Sender: TObject);
procedure SpeedButtonhmdClick(Sender: TObject);
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
procedure SpeedButton9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Formqq: TFormqq;

implementation
uses unitmain;
{$R *.dfm}
procedure TFormqq.SpeedButtonhyClick(Sender: TObject);
begin

speedbuttonhmd.Top:=speedbuttonskins.Top-24;
speedbuttonmsr.Top:=speedbuttonhmd.Top-24;
speedbuttonts.Top:=speedbuttonmsr.Top-24;

end;

procedure TFormqq.SpeedButtontsClick(Sender: TObject);
begin
if speedbuttonts.top=speedbuttonhy.top+24 then
begin
speedbuttonhmd.Top:=speedbuttonskins.Top-24;
speedbuttonmsr.Top:=speedbuttonhmd.Top-24;
end
else
if speedbuttonts.top=speedbuttonskins.Top-72 then
begin
speedbuttonts.Top:=speedbuttonhy.top+24;
end;

end;

procedure TFormqq.SpeedButtonmsrClick(Sender: TObject);
begin
if speedbuttonmsr.top=speedbuttonhy.top+48 then
speedbuttonhmd.Top:=speedbuttonskins.Top-24
else
if speedbuttonmsr.top=speedbuttonskins.top-48
then
begin
speedbuttonts.Top:=speedbuttonhy.top+24;
speedbuttonmsr.Top:=speedbuttonts.top+24;
end;

end;

procedure TFormqq.SpeedButtonhmdClick(Sender: TObject);
begin
if speedbuttonhmd.top=speedbuttonskins.Top-24 then
begin
speedbuttonts.Top:=speedbuttonhy.top+24;
speedbuttonmsr.Top:=speedbuttonts.top+24;
speedbuttonhmd.Top:=speedbuttonmsr.top+24;
end;
end;

procedure TFormqq.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
formmain.ToolButtoncxxx.enabled:=true;
formmain.memoscreem.enabled:=true;
action:=cafree;
end;

procedure TFormqq.SpeedButton9Click(Sender: TObject);
begin

if formqq.top=-279 then
formqq.top:=8
else
formqq.top:= -279;

end;

end.

不就是时间和坐标的问题吗啊？

I need it ,too!
thanks!!!
shinegirl0211@sina.com

接受答案了.