DialogWindow.ExecModal Method |
Namespace: VO
1METHOD ExecModal() CLASS DialogWindow 2RETURN NIL
1METHOD xyz() CLASS xyz 2LOCAL oPDlg AS ProgressDialog // inherit from DialogWindow 3 4oPDlg := ProgressDialog{SELF, "Processing is going on!"} 5oPDlg:Count := oServer:Reccount 6oPDlg:Show() 7 8//ProgressDialog is modal, the user can do 9// nothing during the processing other than what 10// your code permits. 11//In this example you can abort the loop. 12 13oServer:GoTop() 14 15DO WHILE oServer:EOF 16IF ! oPDlg:STEP() //FALSE if abort button is pressed 17EXIT 18ENDIF 19//do something 20oServer:Skip() 21ENDDO 22 23oPDlg:EndDialog()