cal - 我们如何在 c/al 中使用 strmenu 处理程序？

Question

我已经尝试使用strmenu handler. 我有一个场景，我需要点击Ok button. 我用过：Text:= 'OK'; [Strmenuhandler]程序StrMenuHandler(Options: Text[1024]; var Choice: Integer; Instruction: Text[1024])Begin Ifoptions= text then Choice:=1; End;