如何管理使用ErrorFixer方法时显示的错误消息框大小？

Question

Image with large alert box 我有一种情况，屏幕上显示的消息框太大（默认大小）。如何自定义警报框的大小？

类：aWFErrorFixer 方法：AlertWithErrors

过程AlertWithErrors（customMessage：CString）    如果customMessage =＆＃39;＆＃39;       self.Message = mlTheFollowingErrorsHaveBeenRaised_    其他       self.Message = customMessage    万一    if self.Interact（self.Scenario.WFErrorFixerModal，Consultation，True）= rValid    万一 endProc

Answer 1

在名为WFErrorFixerMain的aWFErrorFixer中创建方案：

在此方案的代码部分中，WFErrorFixerMainAgent将是aUIAgent的子级。 aUIAgent有一个名为ChangePos（）的方法：

function InteractWithUser(ExecMode : tExecMode, IsModal : Boolean) return tResult override
   self.ChangePos(4000, 4000, 100, 100)
   return inherited self.InteractWithUser(ExecMode, IsModal)
endFunc