关于用鼠标隐藏控件的问题.没分啦,等有分就加上!!!!一定!!!

Question

不需要吧？？？
OnMouseMove你已经会了～～不说了～～
可以在Form1。OnMouseMove里面写隐藏panel的代码的～～

Answer 1

呵呵,是
procedure Tfrom1.onmousemove(.......);
begin
  pannel1.visible:=false;
end
这样吗?不会吧!!

Answer 2

不用这么做，给你一个例子，这是从TCustomLabel中摘录的一段源代码，你可以参考，你可以看TLabel是如何实现的：
  TCustomLabel = class(TGraphicControl)
  private
...
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
...
procedure TCustomLabel.CMMouseEnter(var Message: TMessage);
begin
  inherited;
  if Assigned(FOnMouseEnter) then
    FOnMouseEnter(Self);
end;procedure TCustomLabel.CMMouseLeave(var Message: TMessage);
begin
  inherited;
  if Assigned(FOnMouseLeave) then
    FOnMouseLeave(Self);
end;其实只要是从TControl继承的元件都可以照此方法加入，鼠标进入元件范围的可离开元件范围的事件

Answer 3

呵呵,我倒!
差那么远啊.........
看来要学好心爱的delphi还有很远的路哦.