Dovrei avere quasi risolto il problema...
Per lanciare un metodo di quell'istanza bisogna usare questo arteficio....
l'ultimo problema è come passare al metodo extsetdet i parametri...codice:procedure TFrmSino.Dettaglio1Click(Sender: TObject); var AClass : TPersistentClass; obj: TComponent; Routine: TMethod; Exec: TExec; begin try AClass := GetClass('TFrmTDocumenti'); if aclass <> nil then begin obj := TComponentClass(AClass).Create(Self); Routine.Data := Pointer(obj); Routine.Code := obj.MethodAddress('extsetdet'); if NOT Assigned(Routine.Code) then Exit; Exec := TExec(Routine); Exec; end; except ; end; end;
Qualcuno mi sa aiutare??
Grazie.
mainetz.

Rispondi quotando