Question

我在Delphi XE3工作。我创建了一个循环，通过带有6个标签页的Pagecontrol，其中包含大量带有mdb数据的编辑框的框架。

在循环浏览页面时，我会进行＆＃34;屏幕剪切＆＃34;活动标签的图像并将其放在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;

Answer 1

由于您正在使用TADOTable，我怀疑您的表已配置为异步操作。

这可以通过property ExecuteOptions: TExecuteOptions;

完成

当然，如果您设置ExecuteOptions := [];，您的数据应该同步加载，但会阻止您的用户界面产生令人不快的副作用。

更友好的＆＃39;选项是挂钩OnFetchComplete事件，该事件按如下方式递归：procedure (DataSet: TCustomADODataSet; const Error: Error; var EventStatus: TEventStatus) of object;

具体细节需要更多信息，说明您正在尝试实现的目标。你可以：

直接从OnFetchComplete处理程序调用您的报告方法。
使用处理程序启用在加载数据时禁用的菜单选项/按钮/操作。
使用同步对象（例如TSimpleEvent）并在OnFetchComplete处理程序内发出事件信号。然后，其他代码可以简单地调用WaitFor方法阻止代码，直到事件发出信号为止。

在制作剪贴板图片之前，Delphi检查Tabsheet是否已完成加载数据

1 个答案: