下列方法会自动显示你的当前窗体,然后你要做什么你自己可以下手了。<br>procedure OpenForm(FormClass: TFormClass; Form: TForm);<br>begin<br> for i := 0 to Screen.FormCount - 1 do<br> if Screen.Forms.ClassType = FormClass then<br> begin<br> Form := Screen.Forms;<br> if Form.WindowState <> wsMaximized then<br> ShowWindow(Form.handle, SW_SHOWMAXIMIZED);<br> if (not Form.Visible) then<br> Form.Visible := True;<br> Form.BringToFront;<br> Form.Setfocus;<br> end;<br>end;