A pesar de la sabiduría que me supone Román mi ignorancia es maxima. Despues de intentar todo lo que se me sugiere, no consigo aprobechar vuestros consejos.
He llegado hasta aqui:
He creado un formulario y lo he añadido al proyecto:
Código:
type
TExpTramites = class(TForm)
private
FCodigo:Integer;
FTexto:String;
public
{ Public declarations }
published
property Codigo:Integer Read FCodigo write FCodigo;
property Texto:String Read FTexto write FTexto;
end;
De el, creo, que heredo las propiedades Codigo y Texto en este otro:
Código:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,UExpTramites;
type
TExpTra999 = class(TExpTramites)
Button1: TButton;
procedure Button1Click(Sender: TObject);
Y lo llamo así:
Código:
procedure TExpedientes.ToolButton1Click(Sender: TObject);
var FormaClase : TFormClass;
Forma : TExpTramites;
begin
FormaClase:=TFormClass(GetClass('TExp'+inttostr((Sender as TToolButton).Tag)));
if FormaClase<>nil then
begin
Forma:=FormaClase.Create(Self);
Forma.codigo:=1;
Forma.ShowModal;
Forma.Free;
end;
end;
initialization
RegisterClass(TExpTramites);
RegisterClass(TExp999);
Pero está claro que no entendido lo que me proponiais, porque no me compila.