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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

14
k\hckl\hItems
lbiZTStrins
.
Ihjy^dh\ucghf_j\u[jZggh]hwe_f_glZkibkdZ
fh`ghmagZlvkihfhsvxk\hckl\ZItemIndex
dhfihg_glZListBox.Gmf_jZpby
gZqbgZ_lkykgmey
JZaf_klbl_gZnhjf_ljbdghidbButton1
,
Button3, Button3, kljhdmLabel
bkibkhdListBox1, dZdwlhihdZaZghgZjbkmgd_
Kha^Zcl_h[jZ[hlqbdkh[ulby
OnClick
^eydghidb
Button1:
procedure TForm1.Button1Click(Sender: TObject);
begin
(Sender as TControl).visible := False;
ListBox1.Items.AddObject((Sender as TButton).caption,
Sender);
end;
F_lh^AddObject^h[Z\ey_l\kibkhdbaZ]heh\hddghidbbkZfm dghidm
K\hckl\hVisible
iha\hey_lkdju\Zlvwe_f_glg_mgbqlh`Zy_]h
3.
GZagZqvl_wlhlh[jZ[hlqbdZgZeh]bqgufkh[ulbyf^jm]bodghihddZd
wlh^_eZehkv\iij_^u^ms_ceZ[jZ[hlu
Dhff_glZjbc IZjZf_lj Sender lbiZTObject hibkZg \ aZ]heh\dZo ijhp_
^mj
-
h[jZ[hlqbdh\kh[ulbcQ_j_awlhliZjZf_lji_j_^Z_lkykkuedZgZh[t_dl
-
bklhqgbd kh[ulby LZd dZd Sender hlghkblky d deZkkm TObject
-
Z[kljZdlghfm
deZkkmgZ\_jomb_jZjobbdhfihg_glh\'HOSKLlh\ijhp_^mjmfh`_l[ulvi_j_
^Zgex[hcdhfihg_gl[m^mqbgZke_^gbdhfTObjecthglh`_TObjectIZjZf_lj
Sender h[uqgh b]ghjbjmxlgh _]h g_h[oh^bfh bkihevah\Zlv dh]^Z g_kdhevdh
dhfihg_glh\h[jZsZxlkydh^ghfmblhfm`_h[jZ[hlqbdmkh[ulbcdZd\^Zg
ghfijbf_j_Lh]^ZSenderiha\hey_lmagZlvdlhdhgdj_lghwlhlh[jZ[hlqbd\u
a\Ze
Hi_jZlhj as \ijbf_j_khh[sZ_ldhfibeylhjmqlhh[t_dlSenderke_^m_l
jZkkfZljb\ZlvdZdijbgZ^e_`ZsbcdeZkkm©dghidZª
Kha^Zcl_h[jZ[hlqbd^eykh[ulbyOnClick
h[t_dlZListBox1
:
procedure TForm1.ListBox1Click(Sender: TObject);
begin
with ListBox1 do
begin
(Items.Objects[ItemIndex] as TButton).visible := true;
Items.Delete(ItemIndex);
end;
end;
Ijb\uiheg_gbbijh]jZffZ[m^_lbf_lvke_^mxsbc\b^
                                        14

k\hckl\hItems lbiZTStrins. Ihjy^dh\ucghf_j\u[jZggh]hwe_f_glZkibkdZ
fh`ghmagZlvkihfhsvxk\hckl\ZItemIndex dhfihg_glZListBox.Gmf_jZpby
gZqbgZ_lkykgmey
      JZaf_klbl_gZnhjf_ljbdghidbButton1, Button3, Button3, kljhdmLabel
bkibkhdListBox1, dZdwlhihdZaZghgZjbkmgd_




      Kha^Zcl_h[jZ[hlqbdkh[ulbyOnClick^eydghidbButton1:
      procedure TForm1.Button1Click(Sender: TObject);
      begin
        (Sender as TControl).visible := False;
        ListBox1.Items.AddObject((Sender as TButton).caption,
                             Sender);
      end;
       F_lh^AddObject^h[Z\ey_l\kibkhdbaZ]heh\hddghidbbkZfmdghidm
       K\hckl\hVisible iha\hey_lkdju\Zlvwe_f_glg_mgbqlh`Zy_]h
       3. GZagZqvl_wlhlh[jZ[hlqbdZgZeh]bqgufkh[ulbyf^jm]bodghihddZd
wlh^_eZehkv\iij_^u^ms_ceZ[jZ[hlu
       Dhff_glZjbc IZjZf_lj Sender lbiZ TObject hibkZg \ aZ]heh\dZo ijhp_
^mj-h[jZ[hlqbdh\kh[ulbcQ_j_awlhliZjZf_lji_j_^Z_lkykkuedZgZh[t_dl-
bklhqgbd kh[ulby LZd dZd Sender hlghkblky d deZkkm TObject - Z[kljZdlghfm
deZkkmgZ\_jomb_jZjobbdhfihg_glh\'HOSKLlh\ijhp_^mjmfh`_l[ulvi_j_
^Zgex[hcdhfihg_gl [m^mqbgZke_^gbdhfTObjecthglh`_TObject IZjZf_lj
Sender h[uqgh b]ghjbjmxl gh _]h g_h[oh^bfh bkihevah\Zlv dh]^Z g_kdhevdh
dhfihg_glh\h[jZsZxlkydh^ghfmblhfm`_h[jZ[hlqbdmkh[ulbcdZd\^Zg
ghfijbf_j_Lh]^ZSenderiha\hey_lmagZlvdlhdhgdj_lghwlhlh[jZ[hlqbd\u
a\Ze
       Hi_jZlhj as \ijbf_j_khh[sZ_ldhfibeylhjmqlhh[t_dlSenderke_^m_l
jZkkfZljb\ZlvdZdijbgZ^e_`ZsbcdeZkkm©dghidZª
       Kha^Zcl_h[jZ[hlqbd^eykh[ulbyOnClick h[t_dlZListBox1:
      procedure TForm1.ListBox1Click(Sender: TObject);
      begin
        with ListBox1 do
        begin
           (Items.Objects[ItemIndex] as TButton).visible := true;
           Items.Delete(ItemIndex);
        end;
      end;
      Ijb\uiheg_gbbijh]jZffZ[m^_lbf_lvke_^mxsbc\b^

Страницы