freepascal.ru

Код: Выделить всё

  TMyClass1(obj0).show;

Код: Выделить всё

type
mc1 = class
  private
    procedure MChild;
  end;

  mc2 = class(mc1)
  public
    procedure show;
  end; 

var
  o: mc1;

procedure mc2.show;
begin
  ShowMessage('yes');
end;

procedure mc1.MChild;
var
  mc: mc2;
begin
  mc := mc2.Create;
  mc.show;
  FreeAndNil(mc);
end;    

begin
  o.MChild; 
end;  

Код: Выделить всё

type
Tparent = class
private
   procedure MChild;
end;

TChild = class
public
   function show;
end;

// где-то в обработчике ...
var lobj : Tparent;
begin
 
 lobj:= CreateClass('имя класса потомка');
 
 // вот потом необходимо вызвать метод show потомка который получился...


end;

Код: Выделить всё

MyObject.ClassType

Код: Выделить всё

var lobj: TParent; //по сути некоторый адрес
begin
lobj:= TChild.Create; //Выделили память для объекта с его методами
end;

далее где-то в обработчике:

TChild(lobj).show; //Вызываем дочерний метод (распределенный в памяти)
lobj.ParentMethod; //Вызываем собственные методы

Код: Выделить всё

TChild(lobj).free;
lobj := nil;

Код: Выделить всё

if lobj is TChild then
  TChild(lobj).show

Код: Выделить всё

(lobj as TChild).show

Код: Выделить всё

type
TObjProcedure = procedure of object;
{Родитель}
TAnyParent = class
  property ChildMethod: TObjProcedure;
  procedure {или function} CreateClass(Sender: TObject); 
end;
{Дочерний}
TChild = class(TAnyParent)
  procedure AnyChildMethod;
  constructor Create;
end;

{Переменные}
var
  PrObj = TAnyParent;

implementation

{Некоторая процедура}
procedure AnyProc;
begin
  if PrObj.ChildMethod <> nil then PrObj.ChildMethod; //Вызов дочернего метода
end;

constructor TChild.Create;
begin
  inherited Create;
  ChildMethod := @AnyChildMethod; //Это же можно делать и по любому событию в дочернем классе - не только при создании.
end;

end.