OnMouseMove的问题。

Question

m_over必须定义在一个类中。
可以这样写
type
  TSample = class
    class procedure m_over(Sender: TObject; Shift: TShiftState; X,Y: Integer);
  end;class procedure TSample.m_over(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
nowedit:=tcontrol(sender);
nowedit.Visible :=false;
end;

Answer 1

myedit:=tedit.Create(self);
  myedit.Left :=controlbar1.Left + mylabel.Left ;
  myedit.Top:=controlbar1.Top +mylabel.top;
  myedit.AutoSize:=false;
  myedit.Height :=17;
  myedit.Width:=30;
  myedit.Parent:=form1;
  myedit.Ctl3D:=false;
  myedit.OnMouseMove := TSample.m_over;