speedbutton鼠标按下的问题

2009-09-02 08:58:10 199 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C++在网页设计中的应用在信息爆炸式增长的今天，每天都有大量新的网站诞生，每时每刻网上都传递着难以计数的信息。建立网站来进行自我宣传和信息交流已成为一种新潮的媒体宣传方式，多姿多彩的网页也成为Internet中最为绚丽的部分。您也许已经注意到，在网络速度不断提高的今天，网站的站主们为了留住访问者的视线，开始越来越多地在网页中使用精美的动画、交互式的表单以及其他网页特效。不过我们要实现这些特效，一般都需要借助类似Photo 阅读详情

speedbutton鼠标按下时，开始执行一个循环，直到鼠标弹起来结束循环。
该怎么做呢？

...全文

PyQtWebEngine安装避坑指南：快速解决ModuleNotFoundError 本文详细解析了PyQt5开发中常见的ModuleNotFoundError: No module named 'PyQt5.QtWebEngineWidgets'错误。核心原因是PyQt5 5.11版本后，网页引擎组件被独立为PyQtWebEngine包。文章对比了退回旧版本、独立安装及使用Conda等多种解决方案，并提供了针对Windows、macOS和Linux不同平台的实战安装指南与验证方法，帮助开发者快速解决依赖问题。阅读详情

jhldelphi

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

jhldelphi 2009-09-02

打赏
举报

[Quote=引用 13 楼 lljcs2007 的回复:]
楼主为何要这样做呢？其实做这类的事情建议放到子线程里面去做应该好很多，因为在主线程里面还要处理用户交互及界面等事情，如果用子线程处理你现在问的问题：循环无法停止，speedbutton无法弹起来，也就不是问题啦。
[/Quote]
好的，谢谢

Lljcs2007 2009-09-02

打赏
举报

楼主为何要这样做呢？其实做这类的事情建议放到子线程里面去做应该好很多，因为在主线程里面还要处理用户交互及界面等事情，如果用子线程处理你现在问的问题：循环无法停止，speedbutton无法弹起来，也就不是问题啦。

jhldelphi 2009-09-02

打赏
举报

[Quote=引用 11 楼 supertitan001 的回复:]
如9楼所说，要加一句Application.ProcessMessages放在循环内
[/Quote]

谢谢，可以了，
还有个问题是speedButton弹不起来了。。。。。

SuperTitan001 2009-09-02

打赏
举报

如9楼所说，要加一句Application.ProcessMessages放在循环内

jhldelphi 2009-09-02

打赏
举报

[Quote=引用 8 楼 supertitan001 的回复:]
var is_m: boolean;
procedure TForm1.SpeedButton1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
is_m:= true;
while true do
begin
if is_m then
//要求MouseDown时，edit的值不断的递增，MouseUp时就停止
edit1.Text:= inttostr(strtoint(edit1.Text) + 1)
else exit;
end;
end;

procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
is_m:= false;
end;
[/Quote]
不行，MouseUp是不是要MouseDown事件结束才会去执行呢？

老之 2009-09-02

打赏
举报

循环内加句 Application.ProcessMessages;

SuperTitan001 2009-09-02

打赏
举报

var is_m: boolean;
procedure TForm1.SpeedButton1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
is_m:= true;
while true do
begin
if is_m then
//要求MouseDown时，edit的值不断的递增，MouseUp时就停止
edit1.Text:= inttostr(strtoint(edit1.Text) + 1)
else exit;
end;
end;

procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
is_m:= false;
end;

jhldelphi 2009-09-02

打赏
举报

[Quote=引用 3 楼 bdmh 的回复:]
设置一个变量 CanDo
MouseDown中CanDo:=True;
MouseUp中CanDo:= False;

然后在那个循环中,判断Cando,如果CanDo=True则执行,如果CanDo=false,则Exit
[/Quote]
可是循环在那里触发呢？
我的代码：(下面代码有误，进入了死循环)

var is_m: boolean;

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

  Shift: TShiftState; X, Y: Integer);

begin

  is_m:= true;

  while is_m do

  begin

    //要求MouseDown时，edit的值不断的递增，MouseUp时就停止

    edit1.Text:= inttostr(strtoint(edit1.Text) + 1);

  end;

end;



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

  Shift: TShiftState; X, Y: Integer);

begin

  is_m:= false;

end;

yct0605 2009-09-02

打赏
举报

参考ls各个的意见，在两个事件里面进行判断。

macchen1224 2009-09-02

打赏
举报

你好，使用一個全局變量來判定是否已經是mouse up了，謝謝。

SuperTitan001 2009-09-02

打赏
举报

设置一个全局变量，在MouseDown的循环里面判断该变量。
变量变化时exit或者break

bdmh 2009-09-02

打赏
举报

设置一个变量 CanDo
MouseDown中CanDo:=True;
MouseUp中CanDo:= False;

然后在那个循环中,判断Cando,如果CanDo=True则执行,如果CanDo=false,则Exit

jhldelphi 2009-09-02

打赏
举报

[Quote=引用 1 楼 bdmh 的回复:]
MouseDown开始,MouseUp结束
[/Quote]
MouseUp怎么去结束，MouseDown里的循环呢？
MouseUp是不是要MouseDown事件结束才会去执行呢？

bdmh 2009-09-02

打赏
举报

MouseDown开始,MouseUp结束

speedbutton鼠标按下的问题

相关推荐