Rtti CallProc

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
ismailkocacan
Üye
Mesajlar: 88
Kayıt: 25 Eyl 2011 06:11
Konum: İstanbul
İletişim:

Rtti CallProc

Mesaj gönderen ismailkocacan »

Merhaba
Nesnelerin, parametresiz prosedürlerini, isimden çağırmak için yazdığım bir prosedür.

Kod: Tümünü seç

uses
  Rtti,
  Classes;

procedure CallProc(AClass: TClass; AInstance: TObject;ProcedureName: string);
var
  r:TRttiContext;
  t:TRttiType;
  params:array of TValue;
begin
  r:=TRttiContext.Create;
  t:=r.GetType(AClass);
  t.GetMethod(ProcedureName).Invoke(AInstance,params);
  r.Free;
end;


Kod: Tümünü seç

CallProc(TForm1,Form1,'Close');
Cevapla