Referans Gösteren Nesneyi Bulmak

[Tuğrul HELVACI]

Bu durumda basitçe; SetReferenceEdit procedure'nizde referans kurduğunuz TWinControl'ün Tag property'sine; NativeInt(Self) ataması yapabilirsiniz.

procedure TSizinSinif.SetReferenceEdit(const Value : TWinControl);
begin
  if Value <> FSKReferenceEdit then
  begin
    if not Assigned(Value) and Assigned(FSKReferenceEdit) then
      FSKReferenceEdit.Tag := 0;

    FSKReferenceEdit := Value;

    if Assigned(FSKReferenceEdit) then
      FSKReferenceEdit.Tag := NativeInt(Self);
  end;
end;