Herencia visual y variables públicas

[[maeyanes]]

Hola...

En tu método de clase liberas la forma que creas, así que al salir de la función, Reference tendrá un valor no válido.

En este caso sería mejor solo hacer algo como:

Código Delphi [-]
class function TParentForm.ShowWindow: TModalResult;
begin
  with Self.Create(nil) do
    try
      Result := ShowModal
    finally
      Free
    end
end;

Si te fijas, el método de clase no recibe ningún parámetro y solo devuelve el resultado de ModalResult...



Saludos...

[[Lepe]]

maeyanes, ¿usas Self en un procedimiento de clase?, supongo que se te ha ido el dedo ¿no?

[[maeyanes]]

Hola...

Nop, no se me ha ido el dedo. En un método de clase, Self representa a la clase. Esto es Self = TParentForm y en una clase descendiente, por ejemplo TShowNombreForm, Self sería igual a TShowNombreForm.

Empezado por Delphi Help

In the defining declaration of a class method, the identifier Self represents the class where the method is called (which could be a descendant of the class in which it is defined). If the method is called in the class C, then Self is of the type class of C. Thus you cannot use the Self to access instance fields, instance properties, and normal (object) methods, but you can use it to call constructors and other class methods, or to access class properties and class fields.

A class method can be called through a class reference or an object reference. When it is called through an object reference, the class of the object becomes the value of Self.

Saludos...

[rarratia]

Pero si es necesario el ATag para poder decidir lo que hacer dentro del formulario ShowModal, cómo paso el ATag????

[[maeyanes]]

Hola...

Pues como un parámetro:

Código Delphi [-]
class function ShowWindow(ATag: Integer): TModalResult;

Saludos...

[rarratia]

pero es una función de clase y el objeto aún no se crea, ¿cómo consigo acceder al atributo Tag?

[rarratia]

No conseguiré acceder al tag desde el formulario ShowModal, vendrá en 0