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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

21
AZ^Zgb_
:
i_j_^_eZcl_ijbf_jlZdqlh[ufZljbpukha^Z\Zebkv\ijhp_kk_
\uiheg_gbyijh]jZffu^bgZfbq_kdb\khhl\_lkl\bbk\\_^_gghcjZaf_jghklvx
kfke_^mxsmxeZ[jZ[hlm
EZ[hjZlhjgZyjZ[hlZ
L_fZ>bgZfbq_kdh_kha^Zgb_bgl_jn_ckguowe_f_glh\
Bgl_jn_ckgu_we_f_gludghidbf_gxblifh`ghkha^Z\Zlvg_lhevdh
\bamZevghgZ wlZi_ ijh_dlbjh\Zgby gh b \ ijhp_kk_ jZ[hlu ijh]jZffu^b
gZfbq_kdb>eywlh]hihlj_[m_lkybkihevah\Zlvf_lh^dhgkljmdlhjdeZkkZwlh
]hbgl_jn_ckgh]hwe_f_glZIjh^_eZcl_ke_^mxsb_^_ckl\by
P_ev
-
ijbgZ`Zlbbg_dhlhjhcdghidbkha^Zlv\lhjmxdghidmkgZa\Zgb_f
©Ijb\_lªKha^Zcl_gh\ucijh_dlbjZaf_klbl_gZg_fh^gmdghidmkaZ]heh\dhf
©Kha^Zlvª<h[jZ[hlqbdkh[ulbys_eqdZwlhcdghidbaZibrbl_
procedure TForm1.Button1Click(Sender: TObject);
begin
^Wda_fieyjgh\hcdghidbkha^Z_lkyf_lh^hf
-
dhgkljmdlhjhf&U
e-
DWH:^j_kwda_fieyjZaZghkblky\i_j_f_ggmx0\%XWWRQ:j]mf_glhf
&UHDWHy\ey_lkydhfihg_gl
-
\eZ^_e_pdghidbl_nhjfZ`
MyButton := TButton.Create(Form1);
>Ze__mdZau\Z_lkyf_klhgZoh`^_gb_dghidb
MyButton.Parent := Form1;
MyButton.Left := 60; // JZkklhygb_hle_\h]hdjZynhjfu
MyButton.Top := 15; JZkklhygb_hl\_jog_]hdjZynhjfu`
0\%XWWRQ&DSWLRQ µIjb\_l¶
end;
KZfm i_j_f_ggmx deZkkZ TButton h[ty\bl_ dZd ]eh[Zevgmx \ k_dpbb
Implementationfh^mey
var MyButton: TButton;
Dhff_glZjbc DZ`^ucdhfihg_gl bf__l \h-i_j\uo  ij_^dZ mdhlhjh]h
hggZke_^m_lk\hckl\Zbf_lh^u\h-\lhjuo\eZ^_evpZOwnerdhlhjucfh`_l
Z\lhfZlbq_kdbkha^Z\Zlvbmgbqlh`Zlv^Zggucdhfihg_gl\uau\Z_l_]hdhgkl
jmdlhju b ^_kljmdlhju ijb k\h_f kha^Zgbb b mgbqlh`_gbb \-lj_lvbo jh^b
l_evkdbcdhfihg_glParentgZdhlhjhf^Zggucdhfihg_gljZkiheh`_g\bam
ZevghIjb^bgZfbq_kdhfkha^Zgbbg_h[oh^bfhaZ^Z\Zlvbfy\eZ^_evpZOwner
iZjZf_ljhf f_lh^Z Create b bfy jh^bl_ey \ k\hckl\_ Parent dhfihg_glZ qlh
\ur_ b [uehk^_eZgh<eZ^_evp_f dhfihg_glh\h[uqgh y\ey_lky nhjfZ Zjh
^bl_eyfbfh]ml[ulvnhjfuiZg_ebb]jmiiu
AZf_lvl_qlhf_lh^^_kljmdlhjFree^eymgbqlh`_gbydghidba^_kvg_bk
ihevah\ZekyDghidmmgbqlh`bl\eZ^_e_p-nhjfZ©\f_kl_kkh[hcª?keb`_lj_
[m_lkymgbqlh`blvdghidmjZgvr_^h aZdjulby nhjfu fh`gh ihklmiblvke_
^mxsbfh[jZahfIj_^mkfhljbl_gZijbf_j_s_h^gmdghidmkgZ^ibkvxM^Z
eblvb\h[jZ[hlqbdkh[ulbyOnClick^eyg__aZg_kbl_kljhdm
MyButton.Free;
EZ[hjZlhjgZyjZ[hlZ 
                                        21

      AZ^Zgb_: i_j_^_eZcl_ijbf_jlZdqlh[ufZljbpukha^Z\Zebkv\ijhp_kk_
\uiheg_gbyijh]jZffu^bgZfbq_kdb\khhl\_lkl\bbk\\_^_gghcjZaf_jghklvx
 kfke_^mxsmxeZ[jZ[hlm 

      EZ[hjZlhjgZyjZ[hlZ‹
      L_fZ>bgZfbq_kdh_kha^Zgb_bgl_jn_ckguowe_f_glh\

      Bgl_jn_ckgu_we_f_glu dghidbf_gxbli fh`ghkha^Z\Zlvg_lhevdh
\bamZevgh gZ wlZi_ ijh_dlbjh\Zgby  gh b \ ijhp_kk_ jZ[hlu ijh]jZffu ^b
gZfbq_kdb >eywlh]hihlj_[m_lkybkihevah\Zlvf_lh^dhgkljmdlhjdeZkkZwlh
]hbgl_jn_ckgh]hwe_f_glZIjh^_eZcl_ke_^mxsb_^_ckl\by
      P_ev-ijbgZ`Zlbbg_dhlhjhcdghidbkha^Zlv\lhjmxdghidmkgZa\Zgb_f
©Ijb\_lªKha^Zcl_gh\ucijh_dlbjZaf_klbl_gZg_fh^gmdghidmkaZ]heh\dhf
©Kha^Zlvª<h[jZ[hlqbdkh[ulbys_eqdZwlhcdghidbaZibrbl_
     procedure TForm1.Button1Click(Sender: TObject);
     begin
     ^Wda_fieyjgh\hcdghidbkha^Z_lkyf_lh^hf-dhgkljmdlhjhf&Ue-
DWH:^j_kwda_fieyjZaZghkblky\i_j_f_ggmx0\%XWWRQ:j]mf_glhf
&UHDWHy\ey_lkydhfihg_gl-\eZ^_e_pdghidbl_nhjfZ`
       MyButton := TButton.Create(Form1);
     >Ze__mdZau\Z_lkyf_klhgZoh`^_gb_dghidb
       MyButton.Parent := Form1;
       MyButton.Left := 60; // JZkklhygb_hle_\h]hdjZynhjfu
       MyButton.Top := 15; JZkklhygb_hl\_jog_]hdjZynhjfu`
     0\%XWWRQ&DSWLRQ µIjb\_l¶
     end;
     KZfm i_j_f_ggmx deZkkZ TButton h[ty\bl_ dZd ]eh[Zevgmx \ k_dpbb
Implementationfh^mey
      var MyButton: TButton;
     Dhff_glZjbc  DZ`^uc dhfihg_gl bf__l \h-i_j\uo ij_^dZ m dhlhjh]h
hggZke_^m_lk\hckl\Zbf_lh^u\h-\lhjuo\eZ^_evpZ Owner dhlhjucfh`_l
Z\lhfZlbq_kdbkha^Z\Zlvbmgbqlh`Zlv^Zggucdhfihg_gl \uau\Z_l_]hdhgkl
jmdlhju b ^_kljmdlhju ijb k\h_f kha^Zgbb b mgbqlh`_gbb  \-lj_lvbo jh^b
l_evkdbcdhfihg_gl Parent gZdhlhjhf^Zggucdhfihg_gljZkiheh`_g\bam
ZevghIjb^bgZfbq_kdhfkha^Zgbbg_h[oh^bfhaZ^Z\Zlvbfy\eZ^_evpZOwner
iZjZf_ljhf f_lh^Z Create b bfy jh^bl_ey \ k\hckl\_ Parent dhfihg_glZ qlh
\ur_ b [ueh k^_eZgh

Страницы