Введение в Delphi. Рудалев В.Г - 8 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

8
Kha^Zcl_h[jZ[hlqbdkh[ulbys_eqdZfurvx^eydghidbButton1>ey
wlh]h\u^_ebl_dghidmb^\ZjZaZs_edgbl_gZkljZgbp_(YHQWVbgki_dlhjZh[t
_dlh\kijZ\Zhlkh[ulbyOnClickeb[h^\ZjZaZihdghid_Button1<hdg_j_^Zd
lbjh\Zgby ihy\blky aZ]hlh\dZ bkoh^gh]h l_dklZ ijhp_^mju-h[jZ[hlqbdZ Dmj
khj jZkiheh`blky \gm l jb l_eZ ijhp_^mju f_`^m dexq_\ufb keh\Zfb begin b
end<\_^bl_f_lh^nhjfuCloseaZdju\Zxsbcnhjfm
procedure TForm1.Button1Click (Sender: TObject);
begin
Close;
//
IheghklvxaZibku\Z_lky)RUP&ORVH
end;
LZddZdForm1 -]eZ\gZynhjfZijbeh`_gby__aZdjulb_\_^_ldaZ\_jr_
gbxijbeh`_gbyA^_kvSender -klZg^ZjlguciZjZf_ljkh^_j`ZsbckkuedmgZ
h[t_dl-bklhqgbd kh[ulby Bkihevam_lky j_^dh \ hkgh\ghf dh]^Z g_kdhevdh
h[t_dlh\bkihevamxlh^bgblhl`_h[jZ[hlqbdkh[ulby
:gZeh]bqgu_ ^_ckl\by ijh^_eZcl_ k dghidhc Button2 >ey g__ h[jZ
[hlqbdkh[ulbyaZibrbl_ke_^mxsbfh[jZahf
procedure TForm1.Button2Click(Sender: TObject);
begin
3DQHO&DSWLRQ ¶GZ`ZlZdghidZKlZjl
end;
GZihfgbfqlhButton2 -bfyh[t_dlZagZq_gb_k\hckl\ZName),
KlZjl -gZ^ibkvgZh[t_dl_agZq_gb_k\hckl\ZCaption).
Ijhkfhljbl_l_dklfh^meyGZc^bl_\g_fh[ty\e_gb_deZkkZTForm1.
Wlhl deZkk y\ey_lky gZke_^gbdhf klZg^Zjlgh]h deZkkZ TForm hibku\Zxs_]h
imklh_hdghGZc^bl_dZdb_\g_fihy\bebkvgh\u_k\hckl\Zbf_lh^u
Hldhfibebjmcl_ijh]jZffmbaZimklbl___gZ\uiheg_gb_Hdghijh
]jZffu[m^_lbf_lvke_^mxsbc\b^
AZ\_jrbl_ijh]jZffmgZ`Zlb_fdghidb<uoh^.
<b^hbaf_gbl_ijh_dlJZkiheh`bl__s_h^gmdghidmButton3kgZ^ib
kvxIhfhsvbkha^Zcl_h[jZ[hlqbd^eywlhcdghidb
procedureTForm1.Button3Click(Sender: TObject);
begin
3DQHO&DSWLRQ ¶GZ`ZlZdghidZ¶%XWWRQ&DSWLRQ
end; 
                                       8




      Kha^Zcl_h[jZ[hlqbdkh[ulbys_eqdZfurvx^eydghidbButton1>ey
wlh]h\u^_ebl_dghidmb^\ZjZaZs_edgbl_gZkljZgbp_(YHQWVbgki_dlhjZh[t
_dlh\kijZ\Zhlkh[ulbyOnClickeb[h^\ZjZaZihdghid_Button1<hdg_j_^Zd
lbjh\Zgby ihy\blky aZ]hlh\dZ bkoh^gh]h l_dklZ ijhp_^mju-h[jZ[hlqbdZ Dmj
khj jZkiheh`blky \gmljb l_eZ ijhp_^mju f_`^m dexq_\ufb keh\Zfb begin b
end<\_^bl_f_lh^nhjfuCloseaZdju\Zxsbcnhjfm
     procedure TForm1.Button1Click (Sender: TObject);
     begin
       Close; //IheghklvxaZibku\Z_lky)RUP&ORVH
     end;
     LZddZdForm1 -]eZ\gZynhjfZijbeh`_gby__aZdjulb_\_^_ldaZ\_jr_
gbxijbeh`_gbyA^_kvSender -klZg^ZjlguciZjZf_ljkh^_j`ZsbckkuedmgZ
h[t_dl-bklhqgbd kh[ulby Bkihevam_lky j_^dh \ hkgh\ghf dh]^Z g_kdhevdh
h[t_dlh\bkihevamxlh^bgblhl`_h[jZ[hlqbdkh[ulby
     :gZeh]bqgu_ ^_ckl\by ijh^_eZcl_ k dghidhc Button2 >ey g__ h[jZ
[hlqbdkh[ulbyaZibrbl_ke_^mxsbfh[jZahf
     procedure TForm1.Button2Click(Sender: TObject);
     begin
     3DQHO&DSWLRQ ¶GZ`ZlZdghidZKlZjl¶
     end;
      GZihfgbfqlhButton2 -bfyh[t_dlZ agZq_gb_k\hckl\ZName),
      KlZjl -gZ^ibkvgZh[t_dl_ agZq_gb_k\hckl\ZCaption).
      Ijhkfhljbl_l_dklfh^meyGZc^bl_\g_fh[ty\e_gb_deZkkZTForm1.
Wlhl deZkk y\ey_lky gZke_^gbdhf klZg^Zjlgh]h deZkkZ TForm hibku\Zxs_]h
imklh_hdghGZc^bl_dZdb_\g_fihy\bebkvgh\u_k\hckl\Zbf_lh^u
      Hldhfibebjmcl_ijh]jZffmbaZimklbl___gZ\uiheg_gb_Hdghijh
]jZffu[m^_lbf_lvke_^mxsbc\b^




     AZ\_jrbl_ijh]jZffmgZ`Zlb_fdghidb

Страницы