0

私は Delphi XE3 で作業しています。mdbデータをロードする多くの編集ボックスを備えたフレームを持つ6つのタブシートを持つPagecontrolを通過するループを作成しました。

ページをループするとき、アクティブなタブの「スクリーン カット」画像を作成し、それを fastreport の画像に配置します。

すべてがうまく機能しますが、一部の遅いコンピューターでテストすると、すべてのフレームが作成されますが、データはロードされていません。次のページに進む前に、タブに配置されたフレーム編集コンポーネントにすべてのデータがロードされていることを確認するにはどうすればよいですか?

コードは次のようになります。

  begin
   Screen.Cursor := crHourGlass;
    p := PageControlKalkyl.ActivePageIndex; // Get page index

  for i := 0 to 7 do begin
   MyPage := frxReport1.FindObject('Page' + IntToStr(i)) as TfrxPage;
   MyPage.Visible := True;
  end;

  try
   for i := 0 to PageControlKalkyl.PageCount - 1 do
   If PageControlKalkyl.Pages[i].TabVisible then
   Begin
   PageControlKalkyl.ActivePageIndex := i;
    PageControlKalkyl.ActivePage.Repaint;
    Bilder := 'Pic' + IntToStr(i);


    if FLaddardata = False then //Check if page changed   
    Try
      Bitmap := TBitmap.Create;
      Assert(HandleAllocated);
      DC := GetWindowDC(Handle);
      Win32Check(DC <> 0);
      Bitmap.SetSize(Width, Height);
      Win32Check(BitBlt(Bitmap.Canvas.Handle, 0, 0, Width, Height, DC, 0, 0, SRCCOPY));

      //Load data in to Images in Fastreport 
      if PageControlKalkyl.ActivePageIndex > 0  then
      Begin
      Ver:= 'Version NR: ' + Trim(DataModuleTrakop.ADOTableKALKYL.FieldByName('VERSION').AsString);                      
       Raid:= 'Kalkyl ID: ' +   Trim(DataModuleTrakop.ADOTableKALKYL.FieldByName('DENH').AsString);
       RepImage := frxReport1.FindObject('Pic'+IntTostr(i)) as TfrxPictureView;
       RepImage.Picture.Assign(Bitmap);
       Rappid := frxReport1.FindObject('Rapdata' + IntToStr(i)) as TfrxMemoView;
       Rappid.Font.Style:= [fsBold];
       Rappid.Text := Ver +'  '+Raid;
     end;
    Finally
      ReleaseDC(Handle, DC);
      Bitmap.Free;
    End;
  end
  else
  begin
    MyPage := frxReport1.FindObject('Page' + IntToStr(i)) as TfrxPage;
    MyPage.Visible := False;
  end;


if Fskaparapport = True then
begin
  Fskaparapport := False;
  frxReport1.PrepareReport;
  if FEpost = False then
    frxReport1.ShowPreparedReport;
  Screen.Cursor := crDefault;
end;
PageControlKalkyl.ActivePageIndex := p;

 except
  on E: Exception do
  ShowMessage(E.Message);
 end;

 end;
4

1 に答える 1

0

を使用しているためTADOTable、テーブルが非同期で動作するように構成されていると思われます。

これは次の方法で実行できますproperty ExecuteOptions: TExecuteOptions;

もちろん、 を設定ExecuteOptions := [];すると、データは同期的に読み込まれますが、UI がブロックされるという不快な副作用が伴います。

「より使いやすい」オプションは、次のように宣言される OnFetchComplete イベントをフックすることです。procedure (DataSet: TCustomADODataSet; const Error: Error; var EventStatus: TEventStatus) of object;

正確な詳細には、正確に何を達成しようとしているのかについてのより多くの情報が必要です。あなたは出来る：

  • OnFetchCompleteレポート メソッドをハンドラーから直接呼び出します。
  • ハンドラーを使用して、データの読み込み中に無効になっているメニュー オプション / ボタン / アクションを有効にします。
  • 同期オブジェクト ( など) を使用して、ハンドラーTSimpleEvent内でイベントを通知します。その後、他のコードは、イベントが通知されるまでメソッド ブロッキング コードをOnFetchComplete呼び出すだけで済みます。WaitFor
于 2014-01-07T12:40:59.087 に答える