有关QQ的问题

Question

请问QQ上界面的抽屉效果怎么实现的?

Answer 1

我用Panel做过一个类似的，主要是通过控制其TOP属性来实现！

Answer 2

什么意思？是不是说outlook控件，有个叫做mxOutlookBar的控件做出的效果比QQ还好

Answer 3

如果用第三放控件我建议1个:
mxoutlookbarpro

Answer 4

ThemeEngine控件的Panel可以实现, 自己实现也不难的啊

Answer 5

截获form的鼠标的进入CM_MOUSEENTER或离开CM_MOUSELEAVE消息，进入时还原窗口，离开时移到顶部，只露一条线private
    procedure DoLeave(var Message: TMessage); message CM_MOUSELEAVE;
    procedure DoEnter(var Message: TMessage); message CM_MOUSEENTER;procedure TMainFrm.DoLeave(var Message: TMessage);
begin
end;procedure TMainFrm.DoEnter(var Message: TMessage);
begin end;

Answer 6

在 timer1里写～！
   if  form1.left<0 then
   begin
   form1.left:=form1.left-10;
   end;
在显示时：在timer2里写：
   var p:tpoint;
   然后判断p的位置。
   当p 在表单上时就拖出form1
   在写上form1.left:=form1.left+10;
就行了。