主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

向下

您可以在MouseMove事件中捕获MouseDown事件 找到类似的分支


maxim2   (2002-07-15 20:53) [0]

大家好!
告诉我,我需要知道用户是否在移动时按下了鼠标按钮。



Юрий Зотов   (2002-07-15 22:06) [1]

该方案大致相同(实施细节取决于任务):

VAR
标志:布尔值;

程序... OnMouseDown(...);
开始
标志:=真;
结束;

程序... OnMouseMove(...);
开始
...
如果标志然后
尝试
...
最后
标志:=假
结束;
...
结束;



Helg   (2002-07-15 22:10) [2]

将运算符放在处理程序MouseDown中
Application.ProcessMessages;
在这种情况下我总是这样做。 然而,工作铁也有自己的微妙之处。



alxx   (2002-07-15 23:10) [3]

这是不可能的或什么?

procedure TForm1.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
If ssLeft in Shift Then
Begin
// ShowMessage("Нажата левая кнопка.");
End;
End;



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

楼上





内存:0.55 MB
时间:0.019 c
1-95442
Alexander_D6_XP
2002-07-17 00:30
2002.07.29
动态表格


4-95594

2002-05-20 23:01
2002.07.29
如果另一方面睡眠()和微秒计时器?


4-95611
Burmistroff
2002-05-22 13:54
2002.07.29
如何使用SYSTEM权限关闭应用程序?


14-95489
raiks
2002-06-29 14:28
2002.07.29
我在哪里可以获得编写手机编程的api(西门子me45)?


8-95457
德米特里卡塔耶夫
2002-01-26 19:12
2002.07.29
是否有可能在Delphi上写一个_competitive_三维引擎?





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский