Page 47 - 4260
P. 47

Button4: Tbutton;
               procedure Button1Click(Sender: Tobject);
               procedure Button2Click(Sender: Tobject);
               procedure Button3Click(Sender: Tobject);
               procedure Button4Click(Sender: Tobject);
               private
                 { Private declarations }
               public
                 { Public declarations }
             end;
           var
             Prg_12__1: Tform_1;
           implementation

           {$R *.dfm}
           procedure Tform1.Button1Click(Sender: Tobject);
           begin
             Edit1.Text:='';
             Edit1.Setfocus;
           end;
           procedure Tform1.Button2Click(Sender: Tobject);
           begin
             Combobox1.Items.Add(Edit1.Text);
             Edit1.Text:='';
             Edit1.Setfocus;
           end;
           procedure Tform1.Button3Click(Sender: Tobject);
           begin
             Combobox1.Items.Insert(combobox1.Itemindex,Edit1.Text);
             Edit1.Text:='';
             Edit1.Setfocus;
           end;
           procedure Tform1.Button4Click(Sender: Tobject);
           begin

                                          47
   42   43   44   45   46   47   48   49   50   51   52