delphi vcl 鼠标左键长按功能的实现

步骤

添加[Additional]页下的[TApplicationEvents]控件

申请全局的Integer变量，用来计算延时，如：YsNum: Integer;

在ApplicationEvents1的OnMessage事件中，对捕获的WM_LBUTTONDOWN消息进行处理

如果控件没有OnMouseUp事件，可在OnMessage事件中对WM_LBUTTONUP消息进行处理即可

具体代码

Delphi/Pascal

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;

var Handled: Boolean);

begin

case Msg.message of

WM_LBUTTONDOWN:

begin

YsNum := GetTickCount;

end;

procedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

{$WARNINGS OFF} // 使用GetTickCount函数，编译时会产生一个WARNINS的提示，在此可将WARNINGS开关关闭

if GetTickCount - YsNum > 500 then // 此处500为延时500ms

begin//这里是个例子：如果长按时间超过500ms，则选中身份证号第9位—第18位；否则就清空edit

// ========在此处填写你自己的代码========

Edit1.SelStart := length(Edit1.Text) - 10;

Edit1.SelLength := length(Edit1.Text) - 8;

end

{$WARNINGS ON}

else

Edit1.Clear;

end;

来源：https://www.amingstudio.com/delphi/628.html

推荐分享