چگونه رويداد مربوط به تمامي اجزاء درون برنامه...(دلفی)
توضیحات:
گاهي لازم مي*شود تا ما فراميني را براي يكي از رويدادهاي برنامه خود به تمامي اشياء استفاده شده در برنامه نسبت دهيم اينكار مي*تواند با استفاده از RTTI دلفي صورت گيرد شما مثالي را مي*بينيد كه اين كار را شبيه*سازي كرده است
Code:
uses
Typlnfo;
procedure TFrmRTTIOnChange.Button1Click(Sender: TObject);
var
proplnfo: PProplnfo;
thisEvent: TNotifyEvent;
begin
proplnfo := GetProplnfo(Memo1.Classlnfo, 'OnChange');
if proplnfo <> nil then
begin
thisEvent := Memo1AltChange;
SetOrdProp(Memo1, Proplnfo, integer(@thisEvent));
end;
end;
procedure TFrmRTTIOnChange.Memo1Change(Sender: TObject);
begin
Caption := 'Normal On Change';
end;
procedure TFrmRTTIOnChange.Memo1AltChange(Sender: TObject);
begin
Caption := 'Alternate On Change';
end;
چگونه رويداد مربوط به تمامي ...(دلفی) 
