Re: [MSEide-MSEgui-talk] RTTI

2021-05-27 Thread fredvs
Hello Med. OK. But what about msebufdataset.pas, should I commit the changes? Fre;D -- Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/ ___ mseide-msegui-talk mailing list mseide-msegui-talk@lists.sourceforge.net

Re: [MSEide-MSEgui-talk] RTTI

2021-05-27 Thread mohamed hamza
. De : fredvs Envoyé : jeudi 27 mai 2021 18:23 À : mseide-msegui-talk@lists.sourceforge.net Objet : Re: [MSEide-MSEgui-talk] RTTI Hello Med! This work here (but still need the case of) case sender of tdbintegeredit: showMessage(GetStrProp(tdbintegeredit(sender

Re: [MSEide-MSEgui-talk] RTTI

2021-05-27 Thread fredvs
Hello Med! This work here (but still need the case of) case sender of tdbintegeredit: showMessage(GetStrProp(tdbintegeredit(sender).datalink.datasource.dataset, 'name')); -- Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/ ___

Re: [MSEide-MSEgui-talk] RTTI

2021-05-27 Thread fredvs
> BTW GetStrProp ( sender, 'name') gives the tdbintegeredit1,then why not datalink.dataset? I dont know, I have to jump into GetStrProp and friends. Fre;D -- Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/ ___

Re: [MSEide-MSEgui-talk] RTTI

2021-05-27 Thread mohamed hamza
@lists.sourceforge.net Objet : Re: [MSEide-MSEgui-talk] RTTI Hello Med. Yes, my ball shows it. Like said in previous post, I have to learn that RTTI stuffs more. But, what about to use something like this: procedure infotiersfo.onsetValue(const sender: TObject; var avalue: Integer; var

Re: [MSEide-MSEgui-talk] RTTI

2021-05-27 Thread fredvs
Hello Med. Yes, my ball shows it. Like said in previous post, I have to learn that RTTI stuffs more. But, what about to use something like this: procedure infotiersfo.onsetValue(const sender: TObject; var avalue: Integer; var accept: Boolean); begin if sender is tdbintegeredit

Re: [MSEide-MSEgui-talk] RTTI

2021-05-27 Thread mohamed hamza
(typeinfo(sender),'datalink'); ? Regards Med De : fredvs Envoyé : jeudi 27 mai 2021 17:12 À : mseide-msegui-talk@lists.sourceforge.net Objet : Re: [MSEide-MSEgui-talk] RTTI Re-hello Med. Ok, I understand now what you want. I dont know how to do to access

Re: [MSEide-MSEgui-talk] RTTI

2021-05-27 Thread fredvs
Re-hello Med. Ok, I understand now what you want. I dont know how to do to access properties with Getpropinfo(). (But I will be very happy to learn how to use it). Sorry for the noise. Fre;D -- Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/

Re: [MSEide-MSEgui-talk] RTTI

2021-05-27 Thread fredvs
Hello Med. Here, using your demo, this work: PropInfo := getpropinfo(typeinfo(tdbintegeredit1),'datalink'); showmessage(PPropInfo(PropInfo)^.Name); -- Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/ ___ mseide-msegui-talk mailing

Re: [MSEide-MSEgui-talk] RTTI

2021-05-27 Thread fredvs
Hello Med. Sorry but once again, isolated code out of context is difficult to understand. Using your demo, doing this works: showMessage(tdbintegeredit1.datalink.fieldname); showMessage(tdbintegeredit1.datalink.datasource.dataset.name); showMessage(tdbrealedit1.datalink.fieldname);

[MSEide-MSEgui-talk] RTTI

2021-05-27 Thread mohamed hamza
Hi all, Is it possible to use getprop info to get datalink of tdb object and then access to the dataset info I tried this : Var PropInfo: PPropInfo; begin PropInfo := GetPropInfo(Sender, 'datalink'); showmessage( tdatalink (longint(PropInfo)).datasource.dataset.name); //No