5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
ad311500 2003-05-08
- 打赏
- 举报
把bglong(阿笨)和BOZ的方法加起来使用是最好的方法
yzf111 2003-05-08
- 打赏
- 举报
虽然用PANEL把BUTTON包起来了，但是如果button的LEFT＝0时，MOUSE从BUTTON左边移出去时可能并不会触发PANEL的MOUSEOVER事件，这样会没问题吗，望各位大侠考虑一下。
jzbmoc 2003-05-07
- 打赏
- 举报
right，用panel把button包起来，然后按照boz(波)兄的做法（这厮什么名字·！#￥·%），问题解决了。
gytyl 2003-05-07
- 打赏
- 举报
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;
应该可以实现的。
Y: Integer);
begin
button1.caption:='新值'
end;
//其他button周围的
procedure TForm1.xxxxMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
button1.caption:='旧值'
end;
应该可以实现的。
bglong 2003-05-07
- 打赏
- 举报
把button用一个其他的控件(比如panel)包起来就好了!!
ad311500 2003-05-07
- 打赏
- 举报
同意BOZ
fhuibo 2003-05-07
- 打赏
- 举报
同意boz
gexinmin2008 2003-05-07
- 打赏
- 举报
看看事件触发顺序你就明白了.
yzf111 2003-05-07
- 打赏
- 举报
to boz,难道周围所有的控件都要写上button1.caption:='旧值'吗，这样似乎不是办法吧
anaikh 2003-05-07
- 打赏
- 举报
I agree with boz!
yhq2002 2003-05-07
- 打赏
- 举报
我想是用ONenter和 onexit事件吧
boz 2003-05-07
- 打赏
- 举报
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;
Y: Integer);
begin
button1.caption:='新值'
end;
//其他button周围的
procedure TForm1.xxxxMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
button1.caption:='旧值'
end;
