如何实现鼠标移动到一个button上就改变button.caption,移开后恢复原来的caption

Question

如题

Answer 1

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     button1.caption:='新值'
end;
//其他button周围的
procedure TForm1.xxxxMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     button1.caption:='旧值'
end;

Answer 2

我想是用ONenter和 onexit事件吧

Answer 3

to boz,难道周围所有的控件都要写上button1.caption:='旧值'吗，这样似乎不是办法吧

Answer 4

把button用一个其他的控件(比如panel)包起来就好了!!

Answer 5

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     button1.caption:='新值'
end;
//其他button周围的
procedure TForm1.xxxxMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     button1.caption:='旧值'
end;
应该可以实现的。

Answer 6

right，用panel把button包起来，然后按照boz(波)兄的做法（这厮什么名字·！#￥·%），问题解决了。

Answer 7

把bglong(阿笨)和BOZ的方法加起来使用是最好的方法

Answer 8

虽然用PANEL把BUTTON包起来了，但是如果button的LEFT＝0时，MOUSE从BUTTON左边移出去时可能并不会触发PANEL的MOUSEOVER事件，这样会没问题吗，望各位大侠考虑一下。