拦截paint消息,在move结束的时候开放
解决方案 »
- 有没有类似visio画图的VCL控件
- 高分求解,关于在BPL中使用DBGridEh 的问题,由于现在的CSDN 效率不高,常常是给分没人要(回答)。先给50',高手帮帮
- 初级问题求救:Delphi7中找不到'ExcelXP.dcu'
- canvas textout 画文本时怎样给文本描边啊?高手指教
- 我想使TEDIT只能输入数字,是否有属性设置一下就可以了,不想用KeyPress事件对按下的键进行处理。
- 求高人指点迷津!!! 对于delphi调用vc Dll函数,参数传地址的方式如何完成!!!
- 散分!!!
- 请问:在程序中线程多了,会影响程序的效率和实时性吗?
- TABLE1.DATASOURCE,TABLE1.DATANAME是不是只能连接一个表,而且程序理只读,不可写?
- 将一个文件拷贝到另一个地方,怎么办???
- 关于ASPACK
- 怎样用Delphi5获得当前窗口的窗口句柄?
begin
bStartMove:=true;
lockwindowupdate(form1.handle);
index:=strtoint(Timage(sender).hint);
ImgAnswer[index].Canvas.Lock;
ImgAnswer[index].left:=ImgAnswer[index].left+x-Istartx;
ImgAnswer[index].top:=ImgAnswer[index].top+y-iStartY;
sleep(22);
bStartMove:=false;
lockwindowupdate(0);
end;