« RefObject (TdbfMessage) » : différence 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 … ») |
Aucun résumé des modifications |
||
| 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.Ref := self; | |||
msg.queueTopic := 'topic1'; | |||
// | |||
box1 := TdbfMessageBox.FindBox('box1'); | |||
if Assigned(box1) then box1.AttachMessage(msg); | |||
end; | |||
end; | end; | ||
</source> | </source> | ||
Version du 12 juillet 2011 à 14:56
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.Ref := self;
msg.queueTopic := 'topic1';
//
box1 := TdbfMessageBox.FindBox('box1');
if Assigned(box1) then box1.AttachMessage(msg);
end;
end;