/ Published in: Pascal
                    
                                        
                            
                                Expand |
                                Embed | Plain Text
                            
                        
                        Copy this code and paste it in your HTML
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption := Edit1.Text;
Self.Caption := Button1.Caption
end;
Comments
 Subscribe to comments
                    Subscribe to comments
                
                