Funcion para Crear formularios Normales y evitar el maximizado :S

[ivantj24]

oigan aunque sea se aceptan ideas (((((((((( tengo que hacer esto para continuar, esto es el disenio :S:S:S

como hacer una funcion que cree los formularios, y los muestre, eso es lo unico que pido para no repetir el codigo cada que cree un formulario, se los agradeceria

[ecfisa]

Hola ivantj24.

Según entiendo queres una función que te muestre forms no modales en una aplicación SDI.

Función:

Código Delphi [-]
procedure TFMain.MostrarNoModal(AClass: TFormClass);
var
  i: Integer;
begin
  i:= Screen.FormCount-1;
  while (i > 0) and not (Screen.Forms[i] is AClass) do Dec(i);
  if Screen.Forms[i] is AClass then
    Screen.Forms[i].Show
  else
    AClass.Create(Self).Show;
end;

Ejemplo de llamada:

Código Delphi [-]
  MostrarNoModal(TForm1);
  MostrarNoModal(TForm2);
  ...

Un saludo.