
    
   
    
.
 
 (Gauge), 
 (Ticker)   
(TextField),    ,  
  -  (Menu),   (Choice)    (TextBox).     
  ,  
 ,   
 -  ,   ,  ,  
     .


program Sample;
var click,ok,back:command;
 m1,m2,m3,c1,c2,c3,c:integer;
 str:string;
begin
 ok:=CreateCommand('',CM_OK,1);
 back:=CreateCommand('',CM_BACK,1);
 str:='  ';
 repeat
  ShowMenu(' ',CH_IMPLICIT);
  m1:=MenuAppendString('');
  m2:=MenuAppendString('');
  m3:=MenuAppendString('');
  AddCommand(ok);
  repeat
   delay(100);
   click:=GetClickedCommand;
  until click=ok;
  if MenuIsSelected(0) then begin
   ShowForm;
   ClearForm;
   c:=FormAddChoice(' ',CH_EXCLUSIVE);
   c1:=ChoiceAppendString(c,' 1');
   c2:=ChoiceAppendString(c,' 2');
   c3:=ChoiceAppendString(c,' 3');
   Repaint;
   AddCommand(back);
   repeat
    delay(100);
    click:=GetClickedCommand;
   until click=back;
   RemoveCommand(back);
   if ChoiceIsSelected(c,c1) then str:='1';
   if ChoiceGetSelectedIndex(c)=c2 then str:='2';
   if ChoiceIsSelected(c,c3) then str:='3';
  end;
  if MenuIsSelected(1) then begin
   RemoveCommand(ok);
   ShowTextBox('  ',str,10,TF_ANY);
   AddCommand(back);
   repeat
    delay(100);
    click:=GetClickedCommand;
   until click=back;
   RemoveCommand(back);
  end;
  if MenuGetSelectedIndex=m3 then halt;
 until 1&gt;2;
end.


  Command   ,  Integer -         ,  Str -  
   .       ShowMenu.      ,       ,  ,     .
    - ,   - . 
 : CH_IMPLICIT ( 
   ), CH_EXCLUSIVE
(  ,   
  
), CH_MULTIPLE ( 
 ).       
Menu-AppendString,   
   .   3   
     .
   ,  ,    
   ,    . 
    - MenuIsSelected
 MenuGetSelectedIndex.  
  true ,  
    (
  ), .. MenuIsSelected(0)
  true ,  
 ,   
  
, ..  MenuGetSelectedIndex=m3
 ,   ,
    m3 .
   -   .      ,
     , 
   
 FormAddChoice.           -  
.   - CH_EXCLUSIVE  CH_MULTIPLE.       ,    - .
  ,   ,   
ChoiceAppendString,    .
 -    ,     ,
 -  .    ,     .    ,    ,
     - ChoiceIsSelected  ChoiceGetSelectIndex.    true ,   
,   
,   
,    .      ,    , ..  ChoiceGetSelectedIndex(c)=c2 , 
  .  
   ?
     ,    .        ,  ,       .   ShowTextBox
  .  -  ,  - , 
    ,  -   ,   -  ,     :
TF_ANY -   
 
TF_EMAIL -    
  
  TF_NUMERIC -    
  
TF_PHONENUMBER -    
  

TF_URL -     
    (URL)