Advanced Search

Return to Snippet

Revision: 29594
at August 1, 2010 07:50 by itguy51
Initial Code 
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption := Edit1.Text;
Self.Caption := Button1.Caption
end;
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
TEdit To Button then Form Caption

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Pascal