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

Question

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

类：aWFErrorFixer 方法：AlertWithErrors

过程 AlertWithErrors(customMessage : CString) if customMessage = '' self.Message = mlTheFollowingErrorsHaveBeenRaised_ else self.Message = customMessage endIf if self.Interact(self.Scenario.WFErrorFixerModal, Consultation, True) = rValid endIf endProc

Answer 1

在您的 aWFErrorFixer 中创建一个名为 WFErrorFixerMain 的场景：

在此方案的代码部分中，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