mEnd :  LongInt;
mStart: LongInt;
再型態轉換 ShowMessage('共花' ＋ FloatToStr((mEnd － mStart) / 1000.0) ＋'秒');
時發生這異常，請問這是那裡出錯呢?

引言: 執行Progressbar時，出現"canvas does not allow drawing"的錯誤訊息，Progressbar只run一點點就掛了，各位大大，我要如何設定才能正常執行． 修正△△△△△△△ 多次測試，結果問題不在ProgressBar，我設定

mEnd :  LongInt;
mStart: LongInt;
再型態轉換 ShowMessage('共花' ＋ FloatToStr((mEnd － mStart) / 1000.0) ＋'秒');
時發生這異常，請問這是那裡出錯呢?

發表人 - leo2568 於 2003/12/06 22:56:45

引言:我覺得問題應該不在這裡, 可否post上面一段的code

procedure TForm1.ADODataSet1FetchComplete(DataSet: TCustomADODataSet;
  const Error: Error; var EventStatus: TEventStatus);
begin
  lend:= GetTickCount;
  ShowMessage('共花'  FloatToStr((lEnd - lStart) / 1000.0)  '秒'); //這裡不執行，就能正常
end; 

引言:改用 Application.MessageBox Method 試試看.

╭╧╮╭╧╮╭╧╮╭╧╮╭╮☆
║聖│║誕│║快│║樂│ ╰☆╮ 
╘∞╛╘∞╛╘∞╛╘∞╛☆╰☆ . 
﹒☆‧☆∴．：☆﹒‧∴ ☆..．..