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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

16
JZaf_klbf_s_h^gmdghidmButton3kaZ]heh\dhfHijh]jZff_
<u[_j_f\]eZ\ghff_gx'HOSKLimgdl)LOH_1HZ<ihy\b\r_fky^bZ
eh]h\hfhdg_i_j_c^bl_gZaZdeZ^dm)RUPVIhy\blky©]Ze_j_yrZ[ehgh\ª<u
[_jbl_a^_kvih^oh^ysbcrZ[ehggZijbf_jrZ[ehg$ERXW%R[ijbkihkh[e_g
guc ^ey \u\h^Z bgnhjfZpbb h ijh]jZff_ GZ`fbl_ OK < kj_^_ jZajZ[hldb
'HOSKLihy\blky^hihegbl_evgh_hdgh <b^hbaf_gbl__]haZg_ky\dhfihg_glu
TLabel g_h[oh^bfu_ gZ <Zr \a]ey^ k\_^_gby AZihfgbl_ gZa\Zgb_ nhjfu
k\hckl\h Name) - AboutBoxKhojZgbl_fh^mevimgdl)LOH_6DYH$Vih^bf_
g_fgZijbf_jUnit2.
L_i_jvgZ^hkha^Zggmxnhjfmih^dexqblvdhkgh\ghcnhjf_ijh]jZf
fuI_j_c^bl_gZi_j\mxhkgh\gmxnhjfm>hibrbl_\kibkhdfh^me_c\gZ
qZe_ fh^meyUnit1hkgh\ghcnhjfu\^bj_dlb\_Uses _s_h^bg- <Zrfh^mev
uses Windows, SysUtil, ...,Unit2L_i_jvb^_glbnbdZlhjAboutBoxklZg_l^hklmi_g
\fh^me_Unit1.
Kha^Zcl_h[jZ[hlqbdkh[ulby^eydghidbHijh]jZff_
procedure TForm1.Button3Click(Sender: TObject);
begin
AboutBox.ShowModal;//
F_lh^6KRZ0RGDObah[jZ`Z_l
nhjfmgZwdjZg_
end;
Dhff_glZjbc
 A^_kv <u fh`_l_ \hkihevah\Zlvky ^\mfy f_lh^Zfb -
ShowModal b Show Ijb bkihevah\Zgbb i_j\h]h f_lh^Z h[jZam_lky fh^Zevgh_
hdghIhdZ<u_]hg_aZdjh_l_<ug_kfh`_l_i_j_dexqblvkygbgZh^gh^jm
]h_hdghLZdb_hdgZm^h[gu^eykha^Zgby^bZeh]Zlj_[mxs_]hh[yaZl_evgh]h
hl\_lZIjbbkihevah\Zgbbf_lh^ZShowh[jZam_lkyh[uqgh_hdghbadhlhjh]h
k\h[h^ghfh`gh\uclbg_aZdju\Zy_]hwlbhdgZbkihevamxlkygZijbf_jijb
kha^ZgbbkijZ\dbDZdaZijh]jZffbjh\ZlvaZdjulb_hdgZ"
Ijbbkihevah\Zgbbf_lh^ZShowh[yaZl_evgh\klZ\vl_\h[jZ[hlqbdkh[u
lbyaZdju\Zxs_cdghidb\ua\Zggh]hhdgZba\_klguc<Zff_lh^Close.
Ijb bkihevah\Zgbb f_lh^Z ShowModal eb[h ihklmibl_ ZgZeh]bqgh eb[h
aZ^Zcl_ q_j_a Bgki_dlhj h[t_dlh\ ^ey aZdju\Zxs_c hdgh dghidb k\hckl\h
ModalResultjZ\gh_dhgklZgl_mrOK, mrCancelihgZa\Zgbxdghidb=eZ\gh_-
g_aZ^Z\ZlvdhgklZglmghevh[hagZqZ_fmxmrNone>_eh \lhfqlhnhjfZaZ
dju\Z_lky dh]^Z __ h^ghbf_ggh_ k\hckl\h ModalResult ijbgbfZ_l g_gme_\h_
agZq_gb_ Z ijb gZ`Zlbb dghidb Z\lhfZlbq_kdb ijhbkoh^bl ijbk\Zb\Zgb_
Form.ModalResult:=Button.ModalResult.
AZf_lbf qlh \ bkihevah\Zgguo <Zfb rZ[ehgZo nhjf k\hckl\h
ModalResult dghihd aZjZg__ mklZgh\e_gh g_gme_\uf H^gZdh fh`gh b g_ bk
ihevah\Zlv ]hlh\u_rZ[ehgu kha^Z\Zynhjfu\u[hjhf f_gx)LOH_1HZ)RUP
Lh]^ZhagZq_gbbModalResultke_^m_lihaZ[hlblvky
<uk_cqZkkha^ZebbgnhjfZpbhggh_hdghAboutBoxIjbkha^Zgbb^bZeh
]h\uohdhg^ey\\h^Zbkoh^guo^Zgguog_h[oh^bfh\h-i_j\uojZaf_klblvgZ
nhjf_^bZeh]Zg_h[oh^bfu_^ey\\h^Zdhfihg_glubaZdju\Zxsb_dghidbaZ
^Z\^eydghihdk\hckl\h0RGZO5HVXOWb\h-\lhjuoijh\_jblvdZdmxdghidm
                                         16

      JZaf_klbf_s_h^gmdghidmButton3kaZ]heh\dhfHijh]jZff_
      hibrbl_\kibkhdfh^me_c\gZ
qZe_ fh^mey Unit1 hkgh\ghc nhjfu \ ^bj_dlb\_ Uses _s_ h^bg - _eh\lhfqlhnhjfZaZ
dju\Z_lky dh]^Z __ h^ghbf_ggh_ k\hckl\h ModalResult ijbgbfZ_l g_gme_\h_
agZq_gb_  Z ijb gZ`Zlbb dghidb Z\lhfZlbq_kdb ijhbkoh^bl ijbk\Zb\Zgb_
Form.ModalResult:=Button.ModalResult.
      AZf_lbf qlh \ bkihevah\Zgguo

Страницы