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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

17
ihevah\Zl_evbkihevah\Ze^ey__aZdjulbygZijbf_jdghidmOKbebCancel
.
Ihke_^g__e_]dhk^_eZlvldf_lh^ShowModaljZ[hlZ_ldZdnmgdpby\ha\jZ
sZyagZq_gb_k\hckl\ZModalResultaZdju\Zxs_cdghidbIjbf_jgucnjZ]f_gl
dh^Z^ey\uah\Z^bZeh]h\h]hhdgZbf__l\b^
if Form2.ShowModal =mrOk then
begin
Val (Form2.Edi1.Text, x, code);
...
end;
 <uihegbl_ ijh_dl bkihevamy jZagu_ f_lh^u hldjulbyShowModal b
ShowbaZdjulbyhdgZq_j_aClosebebModalResult
).
I_j_^_eZcl_ijh_dlbajZ[hluhj]Zgbamy\\h^iZjZf_ljh\q_j_a^bZ
eh]h\h_hdgh
EZ[hjZlhjgZyjZ[hlZ
6
L_fZKha^Zgb_l_dklh\h]hj_^ZdlhjZ
JZ[hlZbeexkljbjm_lbkihevah\Zgb_klZg^Zjlguo^bZeh]h\uohdhgf_gx
dghihd[ukljh]h^hklmiZfgh]hkljhqgh]hj_^ZdlhjZMemo
.
Hldjhcl_gh\ucijh_dlbjZaf_klbl_gZnhjf_dhfihg_gluMainMenu
]eZ\gh_f_gxPopupMenu\kieu\Zxs__f_gxGZkljZgbp_'LDORJVgZc^b
l_ b jZaf_klbl_ gZ nhjf_ dhfihg_glu OpenDialog^bZeh]h\h_ hdgh\u[hjZ
bf_gbnZceZ^eyhldjulbySaveDialog^bZeh]h\h_hdgh\u[hjZbf_gbnZceZ
^ey khojZg_gby FontDialog\u[hj rjbnlZ ColorDialog\u[hj p\_lZ <k_
wlb dhfihg_glu bah[jZaylky gZ nhjf_ \ \b^_ agZqdh\ >h[Z\vl_ dhfihg_gl
Memoj_^Zdlhjl_dklZbaZ^Zcl__]hk\hckl\hAlign\ujZ\gb\Zgb_\alBottom .
MklZgh\bl_aZ]heh\hdnhjfu- ;ehdghl.
Memo ij_^klZ\ey_l kh[hc fgh]hkljhqguc j_^Zdlhj l_dklZ Kh^_j`bfh_
j_^ZdlhjZ ojZgblky \ k\hckl\_ Lines Wlh -k\hckl\h deZkkZ TStringsgZ[hj
kljhd
AZ^Zcl_k\hckl\Zdhfihg_glh\^ey\u[hjZbf_gnZceh\
Dhfihg_glOpenDialog:
K\hckl\h
AgZq_gb_ Dhff_glZjbc
DefaultExt txt JZkrbj_gb_bf_gbnZceZihmfheqZgbx
Title Hldjulb_l_dklh\h]hnZceZ
Options.OfFileMustExist true Hldju\Z_fucnZce^he`_gkms_kl\h\Zlv
Filter <k_nZceu_ Ijbijhkfhlj_[m^ml\b^gu\k_nZceu
Dhfihg_glSaveDialog:
DefaultExt txt
Title KhojZg_gb_l_dklh\h]hnZceZ
Options.OverWritePrompt true AZijhki_j_^i_j_aZibkvxnZceZ
Filter <k_nZceu_ Ijbijhkfhlj_[m^ml\b^gu\k_nZceu
AZimklbl_>baZcg_jf_gxs_edgm \^\ZjZaZihagZqdmMainMenu<>b
aZcg_j_kha^Zcl_imgdlu]hjbahglZevgh]hf_gxFaZ]heh\dZfb)LOHb+HOSbgZ
                                         17

ihevah\Zl_evbkihevah\Ze^ey__aZdjulbygZijbf_jdghidmOKbebCancel.
Ihke_^g__e_]dhk^_eZlvldf_lh^ShowModaljZ[hlZ_ldZdnmgdpby\ha\jZ
sZyagZq_gb_k\hckl\ZModalResultaZdju\Zxs_cdghidbIjbf_jgucnjZ]f_gl
dh^Z^ey\uah\Z^bZeh]h\h]hhdgZbf__l\b^
      if Form2.ShowModal =mrOk then
      begin
           Val (Form2.Edi1.Text, x, code);
         ...
      end;
      h[Z\vl_ dhfihg_gl
Memo j_^Zdlhjl_dklZ baZ^Zcl__]hk\hckl\hAlign \ujZ\gb\Zgb_ \alBottom .
MklZgh\bl_aZ]heh\hdnhjfu- ;ehdghl.
       Memo ij_^klZ\ey_l kh[hc fgh]hkljhqguc j_^Zdlhj l_dklZ Kh^_j`bfh_
j_^ZdlhjZ ojZgblky \ k\hckl\_ Lines Wlh -  k\hckl\h deZkkZ TStrings gZ[hj
kljhd 
       AZ^Zcl_k\hckl\Zdhfihg_glh\^ey\u[hjZbf_gnZceh\
       Dhfihg_glOpenDialog:
       K\hckl\h            AgZq_gb_                     Dhff_glZjbc
       DefaultExt             txt     JZkrbj_gb_bf_gbnZceZihmfheqZgbx
       Title       Hldjulb_l_dklh\h]hnZceZ
       Options.OfFileMustExist true Hldju\Z_fucnZce^he`_gkms_kl\h\Zlv
       Filter        baZcg_jf_gxs_edgm\^\ZjZaZihagZqdmMainMenu<>b
aZcg_j_kha^Zcl_imgdlu]hjbahglZevgh]hf_gxFaZ]heh\dZfb)LOHb+HOSbgZ

Страницы