delphi 按钮躲避鼠标点击

本文整理自网络，侵删。

 
unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm3 = class(TForm)
    Button1: TButton;
    procedure Button1MouseEnter(Sender: TObject);
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
  private

  public

  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1MouseEnter(Sender: TObject);
begin
  Button1.Left := random(clientwidth - Button1.width);
  Button1.Top := random(clientheight - Button1.height);
end;

procedure TForm3.Button1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  Button1MouseEnter(Sender);
end;

end.
 

相关阅读 >>

Delphi 正则提取txt中的email 数据

Delphi fmx 获取控件句柄

Delphi 读取正在被占用的txt文件

Delphi执行js

Delphi xe3中使用tidftp的示例

Delphi最简化异步选择tcp服务器

Delphi 删除任意文件的任意位置的任意数量的字符

Delphi filesearch 获取指定文件夹下所有文件包括隐藏文件

Delphi playsound(); 停止播放

Delphi 如何将access的ole对象字段存储的bmp图象显示出来

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 按钮躲避鼠标点击