Referans Gösteren Nesneyi Bulmak

[narkotik]

(24-04-2019, Saat: 08:40)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: 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;

Öncelikle teşekkürler hocam, bu tarz bir özellik benimde aklıma geldi fakat kod yazarken ben veya bir başka bir kişi Bir den çok butonda aynı nesneyi referanslarsa nasıl birşey yaparımda takıldım. Bu tarz bir durumda son referanslayanı buluruz.