Question

delphi怎么在按钮MouseMove事件中.鼠标触碰到按钮,按钮自动弹开,让鼠标点击不到

delphi怎么在按钮MouseMove事件中.鼠标触碰到按钮,按钮自动弹开,让鼠标点击不到

Answer 1

最简单的写法：在onMouseMove里写。

Button1.Left:= Button1.Left + X;
Button1.Top:= Button1.Top + y;

你可以自己修正一下，这样会一直往右下角跑，你可以自己修改成当碰到边框后返回

Answer 2

Button1.left:=xxxx;
botton1.top :=xxxx

Answer 3

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Randomize;
Button1.Left := Random(Self.Width - Button1.Width);
Button1.Top := Random(Self.Height - Button1.Height);
end;