【结】消息的只读**

op+

我做了个消息功能。分配给每个人。我想要实现消息没读前为红色，已读了为黑色。现在问题是：当有一个人读了那条新的消息后，别人桌面的消息也变成了黑色。。。。。就错在这里。。要怎么设置消息在每个人的桌面消息没读前都是红色的。。互相不干扰。

jiahaiminghr

需要看具体的实现逻辑。

op+

最初由 jiahaiminghr 发布
[B]需要看具体的实现逻辑。 [/B]

有点不明白呢。。我要怎么样实现就是消息被读了以后只是在对应的机子消息栏变色。。其他机子没读前还是红色的（就是不变色）。 对于消息来说只对数据库中的消息操作是不能实现的？

jiahaiminghr

我的意思是不知道楼主是怎么控制颜色的？

op+

procedure TMAINFORM.DataGrid1DblClick(Sender: TObject);
var
lFunc: TFunc;
lContext: TContext;
strggbh,lTmpStr:string;
begin
     if  (InfoBroker1.Info.DataSetByID('XWXXSJJ').FieldByName('yd').AsString = 'NEW') then
      begin
         //  将标记字段修改为'1';
         DataSetBroker1.DataSet.Edit;
         DataSetBroker1.DataSet.FieldByName('yd').AsFloat:=1;
         DataSetBroker1.DataSet.Post;
       end;

procedure TMAINFORM.DataGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
begin
      if (InfoBroker1.Info.DataSetByID('XWXXSJJ').FieldByName('yd').AsString = 'NEW') then
   begin
     AFont.Color := Graphics.clRed;
   end
   else
   if (InfoBroker1.Info.DataSetByID('XWXXSJJ').FieldByName('yd').AsString = '0') then
      begin
      AColor:= $000000;
   end;
end;

上面大代码是可以实现以读和未读的。

jiahaiminghr

你的这条消息对于所有客户端都是可见的，所以某人阅读后，其他客户端看到的也是已读状态了。
除非你为每个接收消息的人都创建一个对应的标志，根据客户端不同的操作员来控制显示颜色

op+

除非你为每个接收消息的人都创建一个对应的标志，根据客户端不同的操作员来控制显示颜色?

怎么做？能详细点么？为每个接收消息的人都创建一个对应的标志，那其他客户端的人员数量总是在变的啊。给个详细点思路。。你说的方法我也想过。就是不知道怎么下手~

op+

还没下班吧//呵呵~~~顶到1楼去~~~~~

jiahaiminghr

你可以为这个消息表加个从表，在分配消息到人时，为每个人创建一条从表记录

这样，在个人阅读消息时，就可以在这个从表记录上做标记了。

atiger

楼主还有问题吗？没有就结了：）