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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

在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;