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;
可以这样写
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;
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;