Siento mucho comunicarte que el truco no me funciona (quizás esté haciendo algo mal). Aqui te muestro las dos units que tengo creadas:
unit UListForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TFSForm = class(TForm)
private
FValor: Integer;
FParam1: Variant;
public
published
property ParametroEntrada:Variant read FParam1 write FParam1;
property aux:Integer read FValor Write FValor;
end;
implementation
end.
y la unit donde heredo esta clase:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Dialogs, UListForm;
type
TForm1 = class(TFSForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
published
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Incluso cerrando y volviendo a abrir el Delphi siguen sin mostrarse esas dos nuevas propiedades.
¿Estoy haciendo algo mal?
Saludos
|