主题：delphi 中如何实现按住按钮让一个标签值增加
alexander999
[专家分：0] 发布于 2010-06-27 22:44:00
delphi 中如何实现按住按钮不放让一个标签值不断增加
最后更新于：2010-06-27 22:47:00
回复列表 （共7个回复）
沙发
defly [专家分：30] 发布于 2010-07-06 19:49:00
你用api试试
板凳
cgl_lgs [专家分：21040] 发布于 2010-07-07 06:54:00
在响应函数OnMouseDown里写上一个循环，每增加一次睡一会儿：）
3 楼
柚子蜜茶 [专家分：20] 发布于 2010-07-11 22:08:00
button1.Visible：=false；button1.Visible：=true；ok！
4 楼
我爱你仔仔 [专家分：30] 发布于 2010-07-12 15:19:00
是TBUTTON类拦截了CM_FOCUSCHANGED消息，在消息处理函数里调用了SetButtonStyle可否说一下解决办法?
5 楼
l874356932 [专家分：0] 发布于 2010-08-04 21:43:00
本人写了个基于delphi的小程序-木子淘宝助手V1.0
有兴趣的朋友可以关注下
木子淘宝助手V1.0操作极其简单，只需点击相应按钮即可获取热卖商品相关信息！
本软件开发目的是帮助大家更快捷的选购淘宝商品，本软件所精选的商品都是人全部是人气相对较高，成交量较大的商品！愿大家都能获得性价比最高的商品，争取多赢！
http://74717.cn/mztbzs.rar
6 楼
kuf41 [专家分：0] 发布于 2010-08-30 10:47:00
元件:TTimer,TEdit,TButton
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text := IntToStr(StrToInt(Edit1.Text)+1);
end;
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled := False;
end;
7 楼
moke9 [专家分：30] 发布于 2010-09-02 08:28:00
你好.我是全职网赚工作者.
如果你有时间有电脑.
想在网络上创业.请联系我..
项目绝对真实.详情QQ空间资料
加盟请联系 QQ908889846
我来回复
您所在位置：