Bir objenin PopupMenu Property değer nasıl atanır (Çözüldü)

[adelphiforumz]

S.A.

if (pObject is TEdit) then (pObject as TEdit).PopupMenu := xPopupMenu;

ifadesinin yerine her obje türünü tek tek yukarıdaki gibi yazmadan kolay bir yolla popupmenuye xPopupMenu kısmını atayabilirim.

if Assigned(GetPropInfo(pObject, 'PopupMenu')) Then
//Değeri atama işlemi

Bu şekilde elimdeki objenin "PopupMenu" elemanı varmı kolaylıkla bulabiliyorm
fakat varsa nasıl PopupMenu değerini set edicem o kısımda takıldım.

SetPropValue(pObject, 'PopupMenu', xPopupMenu);
gibi denedim fakat olmadı tür uygun değil mesajı alıyorum bu turu value olarak istiyor nasıl cast edebilirim

Yardımcı olabilieceklere teşekkürler.

[unicorn64]

value değil de TValue olarak istiyordur muhtemelen,

Kod: Tümünü seç

SetPropValue(pObject, 'PopupMenu', TValue.FromVariant(xPopupMenu)); 
// yada
SetPropValue(pObject, 'PopupMenu', TValue.Implicit(xPopupMenu)); 

olarak denermisiniz

[adelphiforumz]

Belirtiğiniz şekilde aşağıdaki hatayı alıyorum
E2010 Incompatible types: 'Variant' and 'TPopupMenu'

bende biryerden örneklere bakarak şöyle birşey yazdım çalıştı
belki birinin daha işine yarar

if Assigned(GetPropInfo(xObject, 'PopupMenu')) Then
SetObjectProp(xObject, 'PopupMenu', xPopupMenu);