如何阻止電腦接收MOUSE的傳訊 |
|
尚未結案
|
|
thomaschio
一般會員   發表：9 回覆：6 積分：3 註冊：2005-02-10 發送簡訊給我 |
各位大大好:
本人有一問題, 希望各位大大可以幫助。
我用QREPORT做了一個相簿的輸出.是透過資料庫內的路徑去LOADPICTURE,但在該REPORT CREATE時,即係大下角未到100%,如果我個MOUSE一有所移動,完成的報表往往會有一兩張相不能顯示(次次的位置亦是不同的),我最初以為是部機LOAD得太快,但如果我不移動MOUSE就沒有此事件發生。
請問有何方法可以在令在CREATE REPORT時令WINDOWS不處理MOUSE的訊息。
以下是我CREATE REPORT的CODE:
Q_SPI.DisableControls;//TADOQuery, 呢句有幫助嗎?
QrpPpl:=TQrpPpl.Create(application);
try
QrpPpl.PreviewModal;
finally
QrpPpl.Free;
Q_SPI.EnableControls;//TADOQuery
end; 以下是我LOAD PICTUREH的語句
procedure TQrpPpl.getphoto;
var
path:String;
begin
path:=frmPpl.photopath frmPpl.Q_SPI.FieldByName('¬相片編號'').AsString '.jpg';
sleep(100);
QRImg.Picture.LoadFromFile(PChar(path));
end; 請各位大大多多指教小弟
|
|
pcplayer99
尊榮會員  發表：146 回覆：790 積分：632 註冊：2003-01-21 發送簡訊給我 |
引言: 各位大大好: 本人有一問題, 希望各位大大可以幫助。 我用QREPORT做了一個相簿的輸出.是透過資料庫內的路徑去LOADPICTURE,但在該REPORT CREATE時,即係大下角未到100%,如果我個MOUSE一有所移動,完成的報表往往會有一兩張相不能顯示(次次的位置亦是不同的),我最初以為是部機LOAD得太快,但如果我不移動MOUSE就沒有此事件發生。 請問有何方法可以在令在CREATE REPORT時令WINDOWS不處理MOUSE的訊息。 以下是我CREATE REPORT的CODE: Q_SPI.DisableControls;//TADOQuery, 呢句有幫助嗎? QrpPpl:=TQrpPpl.Create(application); try QrpPpl.PreviewModal; finally QrpPpl.Free; Q_SPI.EnableControls;//TADOQuery end; 以下是我LOAD PICTUREH的語句 procedure TQrpPpl.getphoto; var path:String; begin path:=frmPpl.photopath frmPpl.Q_SPI.FieldByName('¬相片編號'').AsString '.jpg'; sleep(100); QRImg.Picture.LoadFromFile(PChar(path)); end; 請各位大大多多指教小弟照理做报表不应该因为MOUSE的动作导致报表生成出错啊。你说的QREPORT是QUICK REPORT吗？我似乎没发现有这样的情形。或许你换其它REPORT看看？ 如果一定要让MOUSE的消息不送给SYSTEM，就要写HOOK程序来HOOK住MOUSE的消息了。 |
|
Kingron
中階會員 發表：1 回覆：51 積分：60 註冊：2005-09-14 發送簡訊給我 |
發表時間：2005-09-17 00:42:38
IP:202.175.xxx.xxx 未訂閱
系統時間：2024-05-06 23:53:08
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |