Abrir solo una vez un MDIChild

[jafera]

Gracias Ecfisa, como siempre al rescate de los Delphinaufragos.

Hay una cosa que no entiendo

De donde sale esta linea?

class procedure TfrmChild1.Mostrar;

Saludos

[ecfisa]

Empezado por jafera

Gracias Ecfisa, como siempre al rescate de los Delphinaufragos.

Hay una cosa que no entiendo

De donde sale esta linea?

class procedure TfrmChild1.Mostrar;

Saludos

Es un método de clase, se aplica a una referencia de clase y no necesita de la existencia de una instancia de la misma para ser llamado.

La declaración iría en cada MDIChild:

Código Delphi [-]
type
  TfrmChild1 = class(TForm)
  private
  public
    class procedure Mostrar;
  end;

Saludos.

[jafera]

Ahora que tengo 10 minitillos voy a ver si lo pruebo

Saludos

[jafera]

Código Delphi [-]
type
TfrmChild1 = class(TForm)
private
public
class procedure Mostrar;
end;

Hola de nuevo, no lo entiendo. si coloco la linea del class me dice que no puede compìlar



[Error] Parcs.pas(202): Unsatisfied forward or external declaration: 'TF_Parcs.Mostrar'

Que puedo estar haciendo mal?

Gracias

[ecfisa]

Hola Jafera.

Aparentemente te falta incluir la unidad en que está declarado 'TF_Parcs' tendría que mirar el código...

Mejor te pongo el código funcional del ejemplo de arriba así lo estudias con tranquilidad.

Un saludo.

[jafera]

Gracias Ecfisa

No se que pasa pero no puedo abrir los archivos zip adjuntos, no solo el tuyo, sino ninguno.

De momento lo he solucionado así y funciona

Código Delphi [-]
 
procedure TF_Parcs.JvDBGrid1DblClick(Sender: TObject);
begin
        if not Assigned(F_Camions) then
        begin
                F_Camions:=TF_Camions.Create(nil);
                F_ModulDades.Camions.Locate('ID',Camions_ParcID.Value,[]);
        end
        else
        begin
                F_ModulDades.Camions.Locate('ID',Camions_ParcID.Value,[]);
                F_Camions.BringToFront;
        end;
end;

Y en el formClose

Código Delphi [-]
 
Action:=caFREE;

Y en el formDestroy

Código Delphi [-]
 
F_Camions:=nil;

Saludos

[ecfisa]

Hola Jafera.

No se que pasa pero no puedo abrir los archivos zip adjuntos, no solo el tuyo, sino ninguno.

Ya lo he comentado antes pero me pasaba lo mismo cuando usaba Internet Explorer en Club Delphi y no pude darle solución.
Por ese motivo empecé a usar Mozilla Firefox y nunca más tuve problemas.

Un saludo.

[jafera]

Ahora si lo he descargado con el Mozilla.

Hago pruebas

Saludos