S studing Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-26 #1 form 上有一button，label,用和方法实现：用鼠标指向button时，label消失，而鼠标离开button 时，label出现， 忘高手指教！
T tan_jian Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-26 #2 cm_mouseenter,cm_mouseleave消息!
S studing Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-29 #4 tan_jian ;能不能说的更详细一点，要不把代码写下来吧！我没有用过这两个函数（消息）， 拜托了！
扳 扳手 Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-29 #5 procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin label1.Caption:=''; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin label1.Caption:='label1'; end;
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin label1.Caption:=''; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin label1.Caption:='label1'; end;
F fmz Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-29 #6 procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if (x<=button1.Width) and (y<=button1.Height) then label1.Visible := false else label1.Visible := true; end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if (x<=button1.Width) and (y<=button1.Height) then label1.Visible := false else label1.Visible := true; end;
