报表界面提示信息

Forms/ReportsFrm.pas

@@ -241,7 +241,7 @@ procedure TReportsForm.LoadTempletAndDisplay;
   var
     OldBrushColor, OldPenColor: TColor;
   begin
-    Application.MessageBox(PChar(AStr), '×¢Òâ', MB_OK or MB_ICONINFORMATION);
+    TipMessage(AStr, Handle);
     OldBrushColor := PreviewBox.Canvas.Brush.Color;
     OldPenColor := PreviewBox.Canvas.Pen.Color;
     try
@@ -459,7 +459,7 @@ begin
   if _IsEncrypt or G_IsCloud then
     PreviewComXML.Print(CurPage, 1)
   else
-    TipMessage(GetHintStr);
+    TipMessage(GetHintStr, Handle);
 end;
 
 procedure TReportsForm.xcbStartPageChange(Sender: TObject);
@@ -481,7 +481,7 @@ begin
       PreviewComXML.PrintMultiPages(PrintStartPage, PrintEndPage);
   end
   else
-    TipMessage(GetHintStr);
+    TipMessage(GetHintStr, Handle);
 end;
 
 procedure TReportsForm.PrintAllSelectedReports;
@@ -512,7 +512,7 @@ begin
       PreviewComXML.PrintPDF(PrintStartPage, PrintEndPage);
   end
   else
-    TipMessage(GetHintStr);
+    TipMessage(GetHintStr, Handle);
 end;
 
 procedure TReportsForm.ExportAllSelectedPDFReports;
@@ -542,7 +542,7 @@ begin
       ExportCurXlsReport;
   end
   else
-    TipMessage(GetHintStr);
+    TipMessage(GetHintStr, Handle);
 end;
 
 procedure TReportsForm.ExportAllSelectedXlsReports;