 (Form)   


    
 ,  
-   
   .
   . 
     
. 


program SampleProgram;
 Var Ok,Exit,Click:Command;
  Gauge,Field,Age:Integer;
  Name:String;
begin
 Ok:=CreateCommand('OK',CM_SCREEN,1);
 SetTicker(' ');
 Field:=FormAddTextField(' ','', 10,TF_ANY);
 Gauge:=FormAddGauge(' ',True,100,0);
 ShowForm;
 AddCommand(Ok);
 Repaint;
 Repeat
  Delay(100);
  Click:=GetClickedCommand;
 Until (Click=Ok);
 Name:=FormGetText(Field);
 Age:=FormGetValue(Gauge);
 ClearForm;
 ShowCanvas;
 Exit:=CreateCommand('',CM_SCREEN,1);
 SetColor(255,0,0);
 SetFont(FONT_FACE_SYSTEM,FONT_STYLE_BOLD,FONT_SIZE_MEDIUM);
 DrawText(' :',0,0);
 DrawText(Name,0,20);
 DrawText(' :',0,40);
 DrawText(IntegerToString(Age),0,60);
 AddCommand(Exit);
 Repaint;
 Repeat
  Delay(100);
  Click:=GetClickedCommand;
 Until (Click=Exit);
 RemoveCommand(Exit); 
end.


      var  
    Command
(,     
 ,  -).
Ok  Exit    
  ,  Click -
   . Gauge 
Field      
 ,  Age  Name - 
  
.    
 CreateCommand.  
  
(   
),   -  
(  
 ).  
   ,
    
. ,  
  CM_BACK,   
   , 
   ,     
(      
 Sony Ericsson).   
: CM_SCREEN ( 
), CM_OK, CM_CANCEL, CM_BACK, CM_HELP, CM_STOP, CM_EXIT,
CM_ITEM   
  SetTicker. 
    
 .   
    .
     - ,  , 
 .   
  - , 
   ,
 -  
  .
  -   ,
    
 : 

 
 TF_ANY -   
  TF_EMAIL -    
  
 . TF_NUMERIC -    
  .TF_PHONENUMBER -    
   .TF_URL -     
    (URL).  
    :
True -   , False -
.    - 
    .  
    -
ShowForm ( 
 ).  
    
    
   Repaint. 
,   
(,    Motorola)
     ,
    
Repaint.     ddCommand
   Repaint.  ,  
   100
  
 Click  
   
GetClickedCommand.   
  OK,   
 .    Name
 Age   FormGetText  FormGetValue
   
    
(     
 ).  
    
( ClearForm)  
 ,  
   
   
  . 
    
 Exit,   
  . 
    
 RemoveCommand,  
  ,
  . ..  ClearForm
    , 
RemoveCommand -   
.    
,  , 
  FormRemove,
   
  .  
   
    IntegerToString,
  - StringToInteger.    
    
 . FormAddSpace  
 ,    
 . FormAddString 
   ,
    .
,     
,     
   .