mira el procedimiento de llamada:
Código:
if Sender.ClassType = TToolButton then
FormaClase:=TExpFormClass(GetClass('TExp'+inttostr((Sender as TToolButton).Tag)))
else if Sender.ClassType = TMenuItem then
FormaClase:=TExpFormClass(GetClass('TExp'+inttostr((Sender as TMenuItem).Tag)))
else
Exit;
if FormaClase<>nil then
begin
Forma:=FormaClase.Create(Self);
Forma.codigo:=0;
Forma.Expte:=QueryDia.fieldbyName('EXPDIA_CODIGO').AsInt64;
Forma.Modo:='A';
Forma.Part:=Part;
Forma.Tipo:='EXP'+Part+QueryDia.fieldbyName('EXPDIA_TIPO').AsString;
Forma.ExpAno:=EAno.Text;
Forma.ExpNum:=ENumero.Text;
Forma.Idioma:=Idioma;
Forma.Dni:=EDni.Text;
Forma.DniDup:=EDniDup.Text;
Forma.ShowModal;