RefObject (TdbfMessage)
De Wiki1000
(Différences entre les versions)
(Page créée avec « <source lang='delphi'>property RefObject:TRefObject;</source> Propriété en '''lecture / écriture'''. Cette propriété contient une référence vers un objet, elle peut … ») |
|||
| (Une révision intermédiaire par un utilisateur est masquée) | |||
| Ligne 8 : | Ligne 8 : | ||
<source lang='delphi'> | <source lang='delphi'> | ||
begin | begin | ||
| + | withP transaction do | ||
| + | begin | ||
| + | msg := box.CreateMessage('Some subject in a queue','Some content', nil); | ||
| + | msg.refObject := self; | ||
| + | msg.queueTopic := 'topic1'; | ||
| + | // | ||
| + | box1 := TdbfMessageBox.FindBox('box1'); | ||
| + | if Assigned(box1) then box1.AttachMessage(msg); | ||
| + | end; | ||
end; | end; | ||
</source> | </source> | ||
Version actuelle en date du 12 juillet 2011 à 17:10
property RefObject:TRefObject;
Propriété en lecture / écriture.
Cette propriété contient une référence vers un objet, elle peut être utilisé pour rattacher le message à un objet métier de l'application.
Exemple :
begin withP transaction do begin msg := box.CreateMessage('Some subject in a queue','Some content', nil); msg.refObject := self; msg.queueTopic := 'topic1'; // box1 := TdbfMessageBox.FindBox('box1'); if Assigned(box1) then box1.AttachMessage(msg); end; end;
| Whos here now: Members 0 Guests 1 Bots & Crawlers 0 |
