DELPHI中的按钮

[Jeff_g]

如何在DELPHI中实现按住一个按钮，则持续有效直到松开为止？

[myxfang]

timer

[li_zhifu]

用TTimer控件，将其Enabled设为False，在OnTimer事件中做应该在ButtonClick中做的事：
procedure FForm1.Timer1Timer(Sender:TObject);
begin
Dosth;
end;

procedure TForm1.Button1MouseDown...
begin
Timer1.Enabled:=True;
end;

procedure TForm1.Button1MouseUp...
begin
Timer1.Enabled:=False;
end;

[dana]

用时间控制。

[Hillside]

你这个问题太含糊,什么叫"则持续有效直到松开为止".可以考虑使用OnMouseDown和OnMouseUp,或者描述得更具体些