Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

     Begin_Com Role(*EXTENDS #PRIM_WEB) 
Define_Com Class(#PRIM_PHBN) Name(#Confirm) Caption('Confirm') Displayposition(1) Left(16) Parent(#COM_OWNER) Tabposition(1) Top(14) Width(193)
Evtroutine Handling(#Confirm.Click)
If (#sys_web.Confirm( "Please Confirm" ) = OK)
#Confirm.Caption := "Confirm - OK"
Else
#Confirm.Caption := "Confirm - Cancelled"
Endif
Endroutine
End_Com


See also

All Component Classes

Technical Reference