I have one for you

[john230873]

I have 2 forms (one main, one second). I what to have multiple second forms.
When the accept button is press on the second form then I want the second form to close and trigger a procedure in the first form.

Here is the code to create the form (note I have rerouted the
button's click procedure to the main form. The problem is a can't get the scond form to close


procedure TForm1.Button1Click(Sender: TObject);
begin
With TForm2.create(self) do
begin
Button1.OnClick := Showthemessage;
Show;
end;
end;

procedure TForm1.Showthemessage(Sender: TObject);
begin
showmessage('triggered');
end;

 

[DelphiAaron]

are the second forms mdi ???

Aaron Taylor
John Mutch Electronics

http://www.jme.com.au

 

[john230873]

No, Normal form

 

[DelphiAaron]

i dont understand

form1 creates form2
form2 closes and in the onclose event triggers form1.dosomething

whats the problem ??????????

Aaron Taylor
John Mutch Electronics

http://www.jme.com.au

 

[gcaramia]

Try:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := Tform2.Create(self);
  With Form2 do
  begin
    Button1.OnClick := Form2.closeandtrigger;
    Show;
  end;
end;

procedure Tform1.pippo;
begin
  .........
  .........  
end;

-----------

procedure TForm2.closeandtrigger(Sender: TObject);
begin
  form1.pippo;
  close;
end;

Giovanni Caramia

 

[john230873]

I did think about the option of the second form triggering a procedure in the first form but I didn't think it was good programming practice