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遍历进程并获取进程路径

Delphi 分离网址链接最后一层文件目录

Delphi getmem(mystring,1024);//开辟1024个字节freemem(mystring,1024);//释放

Delphi中获取客户区坐标

Delphi xe5 android获取手机联系人，并用listview显示

Delphi截取字符串 防止中文截断

Delphi 监控文件系统

Delphi中内嵌汇编

Delphi 如何判断clipboard剪切板中的内容的类型

Delphi 正则表达式的匹配模式

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

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