Gracias por la observación
jachguate tienes toda la razón. Nunca había probado el código hasta después de lo que me comentastes. Ya lo he reparado -según yo-
Código Delphi
[-]
Procedure TMainForm.CreateOrRestoreForm(var aForm : TForm; aFormClass : TFormClass);
Begin
if not Assigned(aForm) Then begin
aForm := aFormClass.Create(Application);
aForm.Show;
end
else begin
if aForm.WindowState = wsMinimized then
aForm.WindowState := wsNormal;
aForm.BringToFront;
end;
end;
Para llamarlo así:
Código Delphi
[-]
CreateOrRestoreForm(TForm(Form2), TForm2);
Saludos.