我想用鼠标在窗体上点点,点一下窗体上显示一个红点
一般情况下它是在Tform.onmousedown事件中。但我不想时时都能这样。而是在程序进行到某一个阶段的时候才可以有效。
比如:procedure button1.click(sender:Object)
begin
message('请在窗体上点点!');
form1.cursor:=crcursor; //鼠标指针变成十字型
********我想在程序进行到这个地方的时候,调用Tform.onmousedown事件有效,请问怎么办
end;
一般情况下它是在Tform.onmousedown事件中。但我不想时时都能这样。而是在程序进行到某一个阶段的时候才可以有效。
比如:procedure button1.click(sender:Object)
begin
message('请在窗体上点点!');
form1.cursor:=crcursor; //鼠标指针变成十字型
********我想在程序进行到这个地方的时候,调用Tform.onmousedown事件有效,请问怎么办
end;
解决方案 »
- 调整字间距
- 谁知IIS和注册表的关系??
- 问一下这两种打开文件的方式有什么区别,各适用于什么情况
- Async Professional怎么安装?
- 在clientdataset的Aggregates求和Active以设为true记录也不为空。。。。。
- case 语句
- 我想用最高效率的方法得到一个web服务器返回的网页脚本,请问该如何实现,我会把我的所有的分都拿出来用
- DBGRID的一个小问题。
- !!!为什么Paradox数据库里不能显示“”(双引号)号呢???
- 安卓里面怎么实现模拟 某一个按钮呢,要全局的呢。
- 高分求助 html中的下拉框,即可选择又可手输...
- 小弟初学delphi,请问orbpas.pas 和orbpas.dcu这两个文件是干什么用的呀?
比如
flag=true
做你要做的
else
什么都不做
然后在你的button.click里面设置标志为true就是了
begin
message('请在窗体上点点!');
form1.cursor:=crcursor;
Tform.onmousedown(form1);
//鼠标指针变成十字型
********我想在程序进行到这个地方的时候,调用Tform.onmousedown事件有效,请问怎么办
end;
begin
message('请在窗体上点点!');
form1.cursor:=crcursor;//鼠标指针变成十字型Tform.onmousedown(form1);//调用onmousedown事件发生的方法。
end;
???這樣對嗎?
scu96124678(绿林侠) 方法應該可行,我想可能有個bug,就是標誌沒有設置回來
//我來修改一下
step 1)定義變量 bCanFlag onmousedown事件是否執行
step 2)在onmousedown事件里
if not bCanFlag then Exit
做你要做的
bCanFlag := False; //做完之后一定要這樣
Step 3) Form Show時要加一行bCanFlag := False;
Step 4) 在按鈕按下事件里多加一行bCanFlag := True;