1 Topic by prahousefamily (edited by prahousefamily 2014-06-11 07:43:21)

  • Registered: 2014-02-17
  • Posts: 365

Topic: how to set events OnChange and More

how to set or script cal text  in textbox time event
txetbox1 = text_1
textbox2 = text_2

textbox3 = text_1*text_2

Post's attachments

Attachment icon 2014-06-11 14 26 03 Image 001.png 6.02 kb, 362 downloads since 2014-06-11 

My Visual Database : I Love You
Easy For Beginner Student For Me
  • Registered: 2014-02-14
  • Posts: 10,294

Re: how to set events OnChange and More

Do you mean, calculate result in TextBox3, when user input values in TextBox1 and TextBox2?

procedure Form1_Edit1_OnChange (Sender: string);
begin
     try
          Form1.Edit3.Text := IntToStr( StrToInt(Form1.Edit1.Text) * StrToInt(Form1.Edit2.Text) );
     except
          Form1.Edit3.Text := '';
     end;
end;

procedure Form1_Edit2_OnChange (Sender: string);
begin
     try
          Form1.Edit3.Text := IntToStr( StrToInt(Form1.Edit1.Text) * StrToInt(Form1.Edit2.Text) );
     except
          Form1.Edit3.Text := '';
     end;
end;
Dmitry.
  • Registered: 2014-02-17
  • Posts: 365

Re: how to set events OnChange and More

Thank You It Is answer be valuable
Thank you again ...

My Visual Database : I Love You
Easy For Beginner Student For Me