鼠标放置,不点击,图片变换
鼠标放置在按钮上,不点击,图片显示.移开后图片消失.
当鼠标放置在不同的按钮上,显示不同的图片.
[解决办法]
procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
end;
在里面自已去判断
[解决办法]
Button的
MouseMove,MouseUp事件
[解决办法]
procedure MyMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);begin if TControl(Sender).name = 控件1名 then //显示控件1的图片 else if TControl(Sender).name = 控件2名 then //显示控件1的图片 ...end;