Article #16580: Showing two forms allowing the first to retain focus

 Question and Answer Database
FAQ1580D.txt Showing two forms allowing the first to retain focus
Category :VCL
Platform :All
Product :All 32 bit
Question:
Is it possible to show a form, but allow the form showing before it
to remain focused, and still positioned behind the newly shown form?
Answer:
The follow code demonstrates showing a non auto-created form
without changing the focus of the original form.
uses Unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Application);
Form2.Visible := FALSE;
ShowWindow(Form2.Handle, SW_SHOWNA);
end;
7/16/98 4:31:28 PM

Last Modified: 01-SEP-99