TEdit To Button then Form Caption


/ Published in: Pascal
Save to your folder(s)



Copy this code and paste it in your HTML
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. begin
  3. Button1.Caption := Edit1.Text;
  4. Self.Caption := Button1.Caption
  5. end;

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.