     II 

      

    6.      Delphi 
    7.       Win32 
    8.      

     6

      Delphi 

      

      
         Delphi   
 , , ,      
 .    ,     
:   OLE/ActiveX      
      !    
OLE/ActiveX      18-21. 

          Delphi.  
         
         
 . 
      Delphi        
.       ,    
 . 
            
   . 
       ()     ,   
  .        
() .       
,         
,   .       , 
  " '". 

        

           
 Delphi      
TControl, TWinControl  TGraphicControl.     
       . 

        

           , 
     TControl, TWinControl  TGraphicControl. 
     ,    
     . 

      

          .   
      .  
  ,    ,     . 

121


122  ?


       ()     . 
,        
   ,   
(wrappers).      (callback)  
            
.       " 
". ƙ'11        , 
     , ,  . 
""   ,       . 
            . 

     CommCtrl Data Access Data Controls 

     7, "   Win32" 9, "    " 
10, "    SQL" 

        Win3.1   , 
    Delphi.    
   ,        . 
      18-21  ,    ActiveX,   
 28, "   Web-",  ,   
 Internet. 

      

        (GUI)   
   ,    .   
       
 ,         
,   Windows.     Windows 95 
          . 
       Delphi     
   ,      
 .        
  . 

        

       ,  Delphi  -.  
       
        
    .  ,  
 TListBox, TEdit  TButton     
   , TControl. 
    ,        TControl  
.   TShape    Font (), 
     . 

      61  

      TControl 

     TControl        . 

    Align 

     Align   ,    
         ( 
).       
,     .    
    Align   al 
    Bottom.          . 

     6.   Delphi 123 


    Caption 

     Caption       
.      TButton.   
   ,   , 
,   Caption    .  . 6.1 
         . 
 Caption  Open  &0. 

      
          .  
 ,     <Alt>,      
    .    , 
  &    . 

    Color 

      Color ()    . 
        ,  
      Color   
.       , ,  
         .  
         . 
     Color,     
     ,  clBtnHighlight. 

    Look : 

      

    . 6.1.        
   

      Color  ,    , 
Windows   (    !).   
  ,    ,    
   . 

    DragCursor  DragMode 

            
  (drag-and-drop).  DragCursor    
 ,      ,   
   .  DragMode ,  Delphi 
   .      
dm&utomatic,       .   
  dmManual,       . 

    procedure  TForml.ListBoxlClick   (Sender:   TObject); begin if 
ListBoxl.SelCount  >= 2  then 
    ListBoxl.BeginDrag(False) ; end; 

         DragMode  ListBoxl  TListBox 
  dmManual, a  MultiSelect  True.   
   ,   OnClick ,   
          . 
,   BeginDrag,  ,    
 (True)  ,       
 (False). 

    124  II.   


    Font 

      Font       
  . 
     Font   ,    Assign, 
    .      
   (    TFontDialog,  fntdlgSelect): 

    Font.Assign(fntdlgSelect.Font); 
    ParentColor, ParentFont  ParentShowHint 

       ,      
   Color (), Font ()  ShowHint ( 
)    .    
    . 

    PopupMenu 

       Windows 95 - ,  
     .  PopupMenu 
     PopupMenu,    
    . 

    Text 

     Text   Caption,     , 
    .  Text  
 Caption ,  Text  ,    
 (,    TEdit)      
( Caption)   . 

     TControl 

           ,  
  ,     . 
     TControl   ,      
 .    , TControl  
   . 
        Selection () 
        Movement () 
        Drag-and-drop (  ) 

    Selection 

     Selection     ,   
    .  Selection  . 
         OnClick      . 
         ,   
  Onclick. ,    TButton  
  ,     ,   OnClick. 

     
      OnDblClick       
          
.    ,      
 ,     ,     
 . 
           
   OnClick  
    ,  OnDblClick.     ! ,  
   ,   
      ,      ,   
   . 
         . 
      OnMouseDown  OnMouseUp     
 .  OnMouse-Down      , 
a OnMouseUp      . 
      ,       
,   OnMouseDown    OnMouseUp  
 OnClick    OnDblClick.    
  . ?1.?  . 
    1.   OnMouseDown.      ' 
    2.   OnClick. 


     6.   Delphi 125 


    3. OnMouseUp. 
    4. OnDblClick. 
    5. OnMouseDown. 
    6. OnMouseUp. 
    u                                                                          
                                                                               
                   1-3. 

     
     

        ,    .  
OnMouseDown    OnMouseUp. (     
  !)    ,  Delphi   
    ,      
.  OnClick  ,  OnMouseUp,    
 .   OnDblClick ,   
 OnMouseDown  OnMouseUp. 
    Delphi          
 .  ,      
,    (  TButton).   
     ,    .  
  : 

    btnLoad.click(Self) ; 

        OnClick    
TButton,  btnLoad.  OnClick   TNotif yEvent   
   Sender.       Self, 
  ,    btnLoad.  
    ,  T 
    KeyEvent,    ,   . 

     

        OnMouseMove,    
     .   
   . ,   , 
 Paint,   OnMouseMove     
   . 

    procedure TFoml.ImagelMouseMove(Sender:   TObject;   Shift:   TShiftState; 
 X,   Y:   Integer) ; 
    begin 
    Panell.Caption   :=   '('+IntToStr(X)+','+IntToStr(Y)+')'; end; 

         OnMouseMove   
TImage.    Caption   TPanel, 
 Panell,   ,    
       TImage. 
    Delphi       
 (CM_MOUSEENTER  CM_MOUSELEAVE).   " 
           . 
     drag-and-drop 
     drag-and-drop (  )   
         .    
    . 
        .    .   
         
 (, ),      (, 
      TListBox). 
        .    ,     
-.         . 
         OnDragOver  ,     
.     : -, 
      . 

    126  II.   

      -    -. 
  ,       
  |]   
         . 
      OnDragDrop  ,    
  .       
  ,       
  . 
      OnEndDrag    ,  
  drag-and-drop.     
   ,     . 
         , 
OnStartDrag,  - ]  ,    
 drag-and-drop. 
    G 
        . 
    1.   OnStartDrag ( ). 
    2.   OnDragOver ( ). 
    3.   OnDragDrop ( ). 
    4.   OnEndDrag ( ). 

      drag-and-drop 

       drag-and-drop,    
    - . ,  
       TListBox  ListBoxl  ListBox2. 
,   DragMode  ListBoxl   dmAutomatic; 
       .^1&,    BeginDrag. 
       .   ,  
      ListBox2.    
  . 

    procedure  TForml.ListBox2DragOver(Sender,   Source:   TObject; 
    X,   Y:   Integer;   State:   TDragState;   var Accept:   Boolean); begin 
    " 
    if  Source  =  ListBoxl   then 
    Accept   :=  True; end; 

       ,     ListBoxl, , 
 ,   Accept  True. 
    ,      ListBox2,   
-   .     
  ( )   ListBoxl  ListBox2. 

    procedure  TForml.ListBox2DragDrop(Sender,   Source:   TObject; 
    X,   Y:   Integer); begin 
    with  Source  as  TListBox do 
    7 
    TTstBox2.Iterns.Add(Iterns[Itemlndex]); end; 
    TWinControl  TGraphicControl 

     TControl     ,   
       OKmiHbie^windowed),   
 "TWinControl", ^ (non-windowed),    
5[,    TGraphicControl:........... 

    TWinControl 

      TWinControl    
   ,        
.     TEdit, ^   
  .  TListBox,     
,    ,      
     . 

     6.   Delphi 127 

          . 

      
            .     
    .     
   .     
     . 
            .     , 
   . ,  TButton  
    ,   TListBcx    
    . 
        ,   TListBox,  
       .  
           TWinControl,   
TFocusControl  - ?  ,       
     Delphi. ,   
 ,    :   TButton    
   ,    Delph 
    i.        (  
 "Win"  TWinControl). 
           ,  
       .      
,      (   
   ). 

     TWinControl 

    TWinControl   TControl  . 
          CtlSD  ParentCtl3D ,    
 :  -  .    
     :      
  Windows 95.     .  
ParentCtlSD ,       
 Ct 13 D   . 
       Enabled ,      
     .     
          
- . 
         Handle  ,  ,  ,   
   .     , 
     .   
   ,        , 
       .    
      API  Windows. 
      HelpContext      
,         
 .       <F1>, 
     . 
         TabOrder   ,     
      .  
 TabStop ,       
    <>     
  . 

     TWinControl 

     TWinControl   TControl    . 
          .      
      .    
OnEnter,     .     
    '  <>.  OnExit 
,      .    
         <> ( 
      ). 

    128  .   

        . Delphi     . 
        OnKeyDown      
,      .   
    ,    
     .    
 Windows   ,    . 
     OnKeyUp ,    .  
        . 
        -    
   ASCII. 
     
     
    I  I 
         OnKeyDown  OnKeyUp  
   . 

     
     OnKeyPress ,    .  
      ASCII   
(  ,   Key,   ). 
     ,      (.. 
,         ). 
   Key   ,    
.    OnKeyPress ,   
     Z    TEdit,  Editl. 

    procedure TForrn.EditlKeyPress(Sender: TObject; var Key: Char); begin if 
Key = 'Z' then 
    Key := #0; end; 

        ,   ,   
 .        
 ,    ,  . Delphi  
 OnKeyPress,  *1 ,      . 

    TGraphicControl 

       TWinControl,  TGraphicControl   
TControl.  TGraphicControl   _    
  Windows,    Twin-Control.  
Tlmage,   ,    
TGraphicControl.  TSpeedButton   TGraphicControl, 
       .      
      . 
     TGraphicControl     .  , 
        
,     -    .  , 
       ,  
     . 
     TGraphicControl   Canvas ()   Paint 
()   TControl. 

     Canvas 

     Canvas    Windows,   
         
.     Canvas    , , 
  ,         
    . 

     6.   Delphi 129 
    5  Delphi 3.   


     Paint 

    TGraphicControl    Paint,   
 ,     .   4, 
"Object Pascal:  ",    . 
     Paint    Canvas  ,  
  . 
     TGraphicControl,  Canvas      , 
  .  
    Paint     TGraphicControl  Canvas,   
  .      
      22, "  ",  Canvas   Paint  
 . 

       

    Delphi    ,    
,         
.       . 

      

      ()      TLabel  
    ,      
,      Caption.   
      (. . 6.1).  Look 
in          
TComboBox,  . 
            Alignment 
(,  ,    ).  Autosize  
    Height ()  Width ()  
     Caption  Font.  Wordwrap 
(  )      , 
      TLabel,      
 . 
     Alignment  Wordwrap  ,  AutoSize   
True.  " 

      I 
      TLabel   ,    
  TWinControl.   ,    
FocusControl    TWinControl    
   Caption.       (. 
. 6.1) TLabel-  Look in    <i>. 
  TComboBox ()   Focus-Control.  
ShowAccelChar ,     &   Caption: 
         
 &. 
       ShowAccelChar   True,  
    (Caption).       
   &.    "Delphi & Windows",   
Caption  Delphi && Windows. 
      ShowAccelChar   False,  
FocusControl  . 
     Transparent ,     ,   
 ,   Color.  ,    
  ,  ,   ,  
 TLabel   . 


    130  .   


    I  1 I  I 

      

             
.   ,      
 ,    (        
 ).       TEdit   
    ,    TRichEdit  
   7, "   Win32". 

      TEdit 

      TEdit      Windows,  
    .  . 6.1    
 .     TEdit     . 
     AutoSelect ,       
 ,     .    
     ,  Auto-Select 
        . 
           ,   
 CharCase  ecUpperCase  ecLowerCase. 
     PasswordChar   ,  
  ,  .    
  , ,   .  
  Windows 95,   . 6.2,   
 TEdit,   PasswordChar   *. 
    . 6.2.  PasswordChar     
   

       

             
 .      ,   
       Lines.    
     ,  memComments ( 
,          ): 

    ShowMessage(memComments.Lines[1]); 

     ScrollBars    /  
     ,      
  . 
     WantReturns  WantTabs ,    
   <Enter>  <>. 
      <Enter>  <>       , 
      .     
 <Enter>  <>,   <Ctrl>. 

    I  1 

        

              
.  MaxLength    , 
     . 
              . 
          OnChange.   ,   
  .     OnKeyDown  
OnKeyPress,   OnKeyUp. 
          Modified.     
 True,     ,      
  False. 

     6.   Delphi 131 

            ,   
    ,   Readonly  
True.         TEdit  
,           
   ,      ,     
   .      
Enabled  False. 
              
 .         
    . 
        SelLength (     ). 
        SelStart (      ). 
        SelText ( ,     ). 
     . 6.3    TEdit,    SelStart 
  1,   SelLength   2.  SelText 
 el. 

    . 6.3.        
   


     

         Windows   
,     .   
TButton    Windows     . 
      Cancel ()   True,  OnClick 
    <Escape>.     , 
   .    Cancel    
 ,         
 . 
      Default  True    
OnClick    <Enter>.  <Enter>     
   .        
      <Enter>,      
 Open.    Default,    True, 
  . 
     ,      ,   
 ,    <Enter>   OnClick  
.     -     I  ,  
       Default,   
^^!  True,      . 
       ModalResult   mrNone,    
.      TButton,   ModalResult 
    ModalResult -. 
       
   OnClick   . 

       

       TCheckBox, TRadioButton  TRadioGroup  
     .    
     Replace Text  Delphi,    
. 6.4. 

      TCheckBox 

      TCheckBox    
(),      .    
"".  Case sensitive    Replace Text  
  TCheckBox,  ,      
  . 
     AllowGrayed   , checked and grayed 
( ),   checked ()  unchecked 
().   ProgramsTOTSTRemove,   . 
6.5,    .   ,   
   ,     ,  
    ,    ,  
   . 

    132  II.   

             
Onclick.       Checked  State.  
   ,     

    chkPrintPlain  TCheckBox. 
    if chkPrintPlain.Checked then 
    PrintPlainList else 
    PrintFancyList; 
    ! Add/Remove Piogiams Piopeitiei 

    . 6.4.   Replace Text   TCheckBox  TRadioButton 

    . 6.5.  AiiowGrayed       

    TCheckBox 

      TRadioButton 

      TRadioButton ,    
 .   TRadioButton   
    .   TCheckBox, 
  TRadioButton     Checked. 

      
     OnClick   TRadioButton     
,    TCheckBox   OnClick 
   . 

      TRadioGroup 

      TRadioGroup, ""    
 TRadioButton  .  TRadioButton    
,     Items;    
,      Columns.  
Itemlndex        TRadioButton. 

     

       , TListBox  TComboBox,  
      . 

      TListBox 

      TListBox    , 
       .   Delphi 
Components,   . 6.6,     
 TListBox. 

     6.   Delphi 133 

     Columns        
 TListBox.   Columns     
 TListBox    . ,   
,    TListBox,   
   ,    Columns.  
    Columns,  , 1  2.   . 6.7. 

    . 6.6.     Components  

     TListBox 

    . 6.7.   Columns      
 TListBox 

     ExtendedSelect  MultiSelect   TListBox 
     .  MultiSelect 
,       .  
 ExtendedSelect   True,     
    <Shift>  <Ctrl>   .  
 ExtendedSelect   False,    
,    .  SelCount   
 .     ,  
    Selected.     
         TListBox, 
 List-Box 1,    . 

    var 
    iCount   :   Integer; begin with  ListBoxl   do 
    for  iCount   :=  a  to  Items.Count  -   1  do if  Selected[iCount]   then 
    Items[iCount]    :=  Uppercase(Items[iCount]); end; 

     Toplndex ,       
 TListBox.       
TListBox  ,    "Delphi"': 

    with  ListBoxl   do Toplndex   :=Items.IndexOf('Delphi'); 

      TComboBox 

      TComboBox  ""   
TListBox.          
 .  Delphi   Find Text,   . 
6.8,    TComboBox   . 
            DropDownCount. 

        

    ,    TListBox    
TComboBox,    Items,      
  (     Sorted  True). 
 Itemlndex      -1,   
  . 
           ;    
    .    
,   OnDrawItem   .  
Style ,       .   
   

    134  II.   

        ItemHeight,    
 .       TListBox 
  OnMeasureltem,       
   OnDrawltem.  Delphi   Components (. 
. 6.6)   TListBox     ,  
   . 

       

          .  
        ,   
  . 

      TPanel 

      TPanel      
(beveled) ,       
.     TPanel    
     TSpeedButton,   
.   TPanel      
  (MDI Application),    
(Project Expert)  Delphi (. 6.9). 

    . 6.9.    Panel     
  

    . 6.8.   TComboBox       
     


      TGroupBox 

      TGroupBox      
     .   
     Print,   . 6.10,  
   TGroupBox,  ,   Number of 
copies   Collate     
    . 

        

      TScrollBar ,     
 .       
TTrackBar (.  7, "   Win32"),   
TTrackBar          . 
 . 6.6  6.7   

    TTrackBar. 

      TScrollBar   Position    
,   Min  .     
 ,   LargeChange  SraallChange . 
     OnScroll ,    . 

     6.   Delphi 135 


    . 6.10.     Print   
 TRadioGroup  TGroupBox 


       

           
    .  Delphi   
     Additional  . 

       

        TButton     
  TBitBtn  TSpeed-Button. 

      TBitBtn 

      TBitBtn   TButton    
       . 
     Kind     ,  
 Default, Cancel  Caption,   . 

     TSpeedButton 

            
.           
 , , . 
       TBitBtn  TSpeedButton   
 :         
  . 
      ,     TSpeedButton   
  Grouplndex      ,   
.  TSpeedButton    , 
^,    TRadioButton. 
     Down   TSpeedButton    , 
  Grouplndex   .   Down  
 True,   TSpeedButton   . 
  Delphi      
 TSpeedButton. 

      

     TBitBtn,  TSpeedButton   Glyph,   
  .  ,      
   : Up, Disabled, Down  Stay Down.   
      ,    Glyph 
 ,   ,    
  ( ).      .  
NumGlyphs    ,    Glyph. 
     ,    Caption  Glyph,  
    . 
       Layout. ,    Glyph:  , , 
    .    Caption,  
   ,  Glyph. 
        Margin.        Glyph. 
        Spacing. ,     Caption  Glyph. 

    136  II.   


       

         TEdit ,  
   
    TMaskedEdit, TDrawGrid  TStringGrid. 

      TMaskedEdit 

      TMaskedEdit      
       
TEdit.  EditMask  ,    
,    .     
 , ,   ,    -  
     . 
    ,     ,     
EditMask,     ,   
.  EditMask ,       Text. 
 EditText         . 
           ,     
   ,      
   TMaskedEdit. 

      TDrawGrid 

      TDrawGrid      , 
     .  TCalendar,   . 6.11, 
    . 
             ColCount  
RowCount.  Col  Row ,      . 
   ,   Selection   
,    . 
     DefaultColWidth      
     ,   DefaultRow-Height   
    .    ColWidths  RowHeights  
     .      
2  TDrawGrid,  DrawGridl,     20 : 

    DrawGridl.ColWidths[I]    :=  20; 


    . 6.11.       TCalendar 


     FixedRows  FixedCols      
,    .       
    TopRow  LeftCol.      
   VisibleColCount  VisibleRowCount.   
        TDrawGrid,  DrawGridl. 

    with DrawGridl do 
    begin 
    TopRow := RowCount - VisibleRowCount LeftCol := ColCount - VisibleColCount 
    end; 

     Options    ,   
           
 . 
     OnColumnMoved  OnRowMoved     
    .  OnTopLef tChanged ,   
 ,    .  OnSelectCell 
        . 
      TDrawGrid  ;     
           , 
   Font.     
     OnDrawCell. 
          ,    
  . TDrawGrid       
OnGetEditText,    .  OnGetEditMask 
       . 
 OnSetEdit-Text ,     . 

     6.   Delphi 137 


      TStringGrid 

        ,   TStringGrid,  
    TDrawGrid   
   ,      . 
     Cells    ,     
 .  Cols  Rows       
   . 
              
,    Cells.     
    OnDrawCell. 

     

            
 ,        . 

      Tlmage 

      Tlmage     . 
     Picture.    
 ,    .   AutoSize  
True,        Tlmage  
    .      
    ,     
,   Stretch  True.    
      ,   
Center  True.   ,   AutoSize  Stretch 
  T rue. 

      TShape 

      TShape     , 
        TCanvas   OnPaint. 
           Style  
 , ,   . 
     Brush    TShape   .  
,       . 

      TBevel 

      TBevel     (beveled line), 
    .   TBevel    
  """ * " 
     Shape ,     TBevel , 
  .  Style ,    . 

             

            
 ,   ,   . 

      TScrollBox 

      TScrollBox     
  ,        
.     ,         
 ,  .  Paint   Windows, 
  . 6.12,       
: ,     TScrollBox,  
,         . 

      TSplitter 

      TSplitter     
    .    Explorer  Windows 
(. 6.13)    ,    
   . 
        TSplitter,    
Align    ,   alNone.  . 6.13 
  All Folders  Explorer  Align   alLef 
t.   TSplitter     All Folders,  
 Align    alLeft.   Contents  
Align   alClient,     ,  
    Explorer. 
              
  MinSize   TSplitter. 

    138  .   


    . 6.12.         
   

    . 6,13.   TSplitter    
     


       

           
       Delphi. 

      TOIeContainer 

      TOIeContainer     
 OLE 2.0     Delphi.    
   18, "  OLE,     
 ActiveX". 

      TPaintBox 

      TPaintBox   ,    
 .  ,    -  
        ,       
 . 
      TPaintBox   OnPaint,   
     Canvas,   
 .       22, "  ". 

      TMediaPlayer 

       TMediaPlayer     
  API,   Media Control Interface.  . 6.14 
  AVI-   - Delphi   
 TMediaPlayer. 
           DeviceType. 
           
 StartPos  EndPos.      Position. 
              
  VisibleButtons  EnabledButtons. 
       Wait  True,     
 ,     MCI. ,   
    -,   Wait  
  True,       
,      

    . 6.14. TMediaPlayer    


     6.   Delphi 139 

        Onclick    . 
      ,   
,  Play  Eject,     . 
 OnPostClick     OnClick.    
    ,   ,   Wait 
  False,  OnPostClick     
 OnClick. 
     Notify ,    OnNotif,  
    .  OnNotif  , 
         
 . 
        TMediaPlayer     
  .   ,   
 TWinControl   Display,    TMediaPlayer 
     . 
     MCI ,        
4-  (.. ,   4 ).   , 
  TMediaPlayer   -^      .  
    ,     
  ,   ^  . 

       

     Delphi   ,    
Samples  .      
   (      
(VCL)).    . 
        TGauge   TGraphicControl.   , 
    .  ,   
   .  TGauge   
 TProgressBar,     7, "  
 Win32". 
       TColorGrid   TCustomControl.     
 . 
        TSpinButton   TWinControl.   ,  
    . 
        TSpinEdit   TCustomEdit.   TSpinEdit   
,       TSpinButton,  
 /  . 
        TDirectoryOutline   TCustomOutline.   
   .    TCalendar   TCustomGrid. 
     . 

      

            
Delphi,   . 

      

     Windows     ,  
 ,      ,  
   . Delphi      
 ,        
 . 

           

             , 
   .       
  TOpenDialog (  )  TSaveDialog (  ). 

     TOpenDialog 

     TOpenDialog      (. 
. 6.1). 
        Title.  InitialDir 
  ,    . 

    140  II.   

    ,   ,      
Filter.  Filterlndex     , 
    . 
     FileName      .  
Def aultExt           
 File name.   Files      
_,, _. 
     Options      , 
   Help    Network. 
       " ",     
opndlgFile  TOpenDialog. 

    var 
    iAge : Integer; begin 
    if opndlgFile.Execute then begin 
    iAge := FileAge(opndlgFile.FileName); 
ShowMessageTDateToStr(FileDateToDateTime(iAge))); end; end; 

     TSaveDialog 

     TSaveDialog      TOpenDialog, 
   ,    .  TSaveDialog 
  . 6.15. 

     

     TFontDialog      (. 6.16). 

    . 6.15.  TSaveDialog      

    . 6.16.  TFontDialog       

         Font. 
        ,   ,  
,    (  )    
Device.  MaxFontSize  MinFontSize    
  . 
     Options      ,  
        . 
     OnApply      Apply. 

     

    TColorDialog      , 
  . 6.17. 
    ,   ,    Color. 
     CustomColors    ,  
  ,   . 

     6.   Delphi 141 


     

           TPrintDialog  
TPrinterSetupDialog,    . 

     TPrintDialog 

      TPrintDialog      
 (. . 6.10). 
              
,      PrintRange ,   
  . 
       ,     FromPage  
.         MinPage  . 
         Copies.  Collate , 
_  . 
     PrintToFile ,      ,    . 
     Options     .   
  ,        . 

     TPrinterSetupDialog 

     TPrinterSetupDialog       
  .     . 6.18. 

    Print Setup 

    . 6.18.  TPrinterSetupDialog    
      

    . 6.17.   1-orDialog      

     

           ,   
 . 

     TFindDialog 

     TFindDialog     , 
   . 6.19. 
     FindText  ,     
.  OnFind      Find Next. 
     Position    ,    . 
       Options    .  
   ,    
    . 

     TReplaceDialog 

     TReplaceDialog       
,   . 6.20. 
     TReplaceDialog    TFindDialog. 
     ReplaceText  ,    
     ,   FindText. 
     OnReplace       Replace  
Replace All.  Options       . 

    142  II.   


    . 6.19.  TFindDialog    

    . 6.20.    -placeDialog    
  


      

          ,     
      . 

    TMainMenu  TPopupMenu 

     TMainMenu   ,     
   .  TPopupMenu  
 ,         
 '. 
      Items    TMenuItem,    . 
      (Menu Designer),   . 6.21,  
  . 

     TMenuItem 

        TMenuItem, Onclick,   
          <Enter>  
  . 
     TMenuItem    Items,   . 
     Shortcut       . 
      Delphi.   File^Save   
      <Ctrl+S>. 
     TMenuItem  ,  TCheckBox,   
 Checked.  Ra-dioltem   
" >^^??. 

     TTimer 

     TTimer   OnTimer    
.   Date/Time Properties,   . 6.22, 
  TTimer    . 

    . 6.21.       
    

    . 6.22.  TTimer     

     Interval       
 OnTimer. 

     6.   Delphi 143 


     

    ,          
  ,     , 
        . 

      

           Delphi,  
            . 
      Delphi       
,        
.   TControl   , 
 Caption  Color,   ,  OnMouseDown  OnMouseMove. 
             TWinControl  
 TGraphicControl. 
     TWinControl         
?    ,  . .. 
  API  .  TWinControl    
,  OnEnter  OnKeyDown. 
     TGraphicControl      
  .        , 
,     . 
        , ' 
VisuafCoTTiponent Library (VCL),  .    
 TCheckBox  TRadioButton,    TRadioGroup. 

      

              
  . 
            Windows, 
         . 
          
  .  TMainMenu  TPopupMenu 
     (  ). 
 TTimer     . 

    144  II.   

