Modal form hides dialog

From: Robert (ngsmail2000_at_hotmail.com)
Date: 11/29/03 

Date: Sat, 29 Nov 2003 15:30:34 -0500

A project with two forms, autocreated.

Form2 has a public procedure DoSomething,

procedure TForm2.DoSomething;
begin
    ShowMessage('End of DoSomething');
    Self.ModalResult := mrOK;
end;

Form1 has a button

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal;
  Form2.DoSomething;
end;

When pressing the button, I see Form2, but I have to manually close form2 to
see the dialog on top of Form1. I was expecting to see the dialog on top of
Form2, click OK, and then the Dialog and then Form2 would close.

What am I missing here? TIA

Robert

Quantcast