hongqi162,在请教一个问题，如何实现当鼠标在rzgroupitem上的时候，弹出一个窗体？

[sun_cathay]

hongqi162,在请教一个问题，如何实现当鼠标在rzgroupitem上的时候，弹出一个窗体？

[sun_cathay]

靠，不是我不给分，是现在提问不让我给分了？？？？

[hongqi162]

RzGroup 有一个OnMouseOverItem事件，这个事件可以获得一个TRzGroupItem,你可以通过这个Item来弹出不同的窗口

[sun_cathay]

呵呵，佩服佩服
如何给你加分？
改版后搞不明白了
现在我提问怎么不让我给分了

[hongqi162]

帖子加分可以么？


分无所谓的，加不了就算了

[sun_cathay]

顺便在问一下，当鼠标在item上面的时候需要弹出一个窗口，这个窗口上可以进行操作，有点类似这个问题中当鼠标在你的名字上弹出的那个窗口，这在delphi中如何实现？

[sun_cathay]

好像帖子只能超过5天只能才能加分，改版后很别扭

[sun_cathay]

我在OnMouseOverItem里面写上showmessage(item.Caption);
当鼠标经过Item的时候出现错误，是什么address方面的

[hongqi162]

在RzGroup的OnMouseMove事件里处理应该好一些，这是我的测试代码
procedure TForm1.RzGroup1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var p:TPoint;
  Index:Integer;
begin
  p.X:= X;
  p.Y:= Y;
  Index:= TRzGroup( Sender ).ItemAtPos( p );
  if Index > 0 then
    showmessage( TRzGroup( Sender ).Items[ Index ].Caption );
end;

[sun_cathay]

这个可以了，多谢多谢