• Registered: 2015-02-12
  • Posts: 96

Topic: Double procedure

Is it possible to have two procedures in the same procedure?

what i have is:

procedure frmManutenção_DateTimePicker1_OnChange(Sender: string);

begin
   frmProduto.DateTimePicker1.Date := frmManutenção.DateTimePicker1.Date;
end;
procedure frmManutenção_DateTimePicker2_OnChange (Sender: string);
begin
   frmProduto.DateTimePicker2.Date := frmManutenção.DateTimePicker2.Date;
end;

but i want to have only one procedure for all.. is possible?

thanks

2 Reply by Montenegr0 (edited by Montenegr0 2015-03-09 19:03:22)

  • Registered: 2015-02-12
  • Posts: 96

Re: Double procedure

and by the way, how can i select a date in one form and display that date in a texbox e another form?

thanks

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Double procedure

Montenegr0 wrote:

but i want to have only one procedure for all.. is possible?

Yes, just copy name of procedure (frmManutenção_DateTimePicker1_OnChange)
to Tab Event > OnChange for all DateTimePicker components.

Dmitry.
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Double procedure

Montenegr0 wrote:

and by the way, how can i select a date in one form and display that date in a texbox e another form?

thanks

procedure Form1_DateTimePicker1_OnChange (Sender: string);
begin
    Form2.Edit1.Text := DateToStr(Form1.DateTimePicker1.Date);
end;
Dmitry.
  • Registered: 2015-02-12
  • Posts: 96

Re: Double procedure

thanks Dmitry