Question

关于delphi的按键控件的问题

我实现这样一个功能：鼠标持续点击按钮控件不放时每隔一段时间（可调）即可执行同一个函数。
要怎么样才能实现?

Answer 1

这个太简单了，放一个timer，把函数写在timer里面，timer的时间可调，Enabled设为False。
按钮的MouseDown事件上，把这个timer的Enabled设为True。鼠标按住不放时，timer就会在设定的时间重复执行函数了。
按钮的MouseUp事件上，把这个timer的Enabled设为False。鼠标放开按钮时，timer停止工作。

Answer 2

将要调用的函数写在 Timer1Timer(Sender: TObject) 中。

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then begin
Timer1.Interval := 3000; // 调整时间，目前 3 秒
Timer1.Enabled := True;
ggTime := 0;
Application.ProcessMessages;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
info: String;
id: Integer;
begin
ggTime := ggTime + Round(Timer1.Interval/1000);
info := Format('你已经按了 %d 秒没有放开.', [ggTime]);
id := Application.MessageBox(PChar(info), '鼠标左键被按下', MB_OK);
if id = IDOK then begin
Timer1.Enabled := False;
ggTime := 0;
end;
end;