Hola ramonibk.
No entiendo cuál es el problema ahora, pero tomando en cuenta lo que mencionas en el primer mensaje:
Cita:
La cosa es como puedo hacer para que en caso de que el form se encuentra abierto.
Bien lo maximice si se encuentra minimizado
Bien lo pase a primer plano si se encontrara en segundo plano.
|
Y viendo que en el código del mensaje
#4 intentas la creación sin lograrlo, creo que con este procedimiento vas a dar solución al problema:
Código Delphi
[-]
...
procedure TForm1.AbrirMDIChild(AClass: TFormClass);
var
i: Integer;
begin
for i:= MDIChildCount-1 downto 0 do
if MDIChildren[i] is AClass then begin
if MDIChildren[i].WindowState = wsMinimized then MDIChildren[i].WindowState:= wsMaximized; MDIChildren[i].BringToFront; Exit; end;
with AClass.Create(Self) do BringToFront; end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
AbrirMDIChild(TMDIChild1);
end;
Saludos.