50分问个简单问题

Question

我的form中现在有groupbox1和groupbox2 
我想用timer实现当鼠标移动到groupbox1上时，groupbox1覆盖groupbox2(也就是groupbox1在上层，groupbox2在下层) 当鼠标移动groupbox2上是则相反

Answer 1

procedure TForm1.Timer1Timer(Sender: TObject);
var
  FPos: TPoint;
begin
  if GetCursorPos(FPos) then
    BringWindowToTop(WindowFromPoint(FPos))
end;

Answer 2

直接这样：procedure TForm1.GroupBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  GroupBox1.BringToFront;
end;procedure TForm1.GroupBox2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  GroupBox2.BringToFront;
end;

Answer 3

汗自己。http://topic.csdn.net/u/20080327/04/41332851-0362-4a67-9065-4a43344b5b64.html原来楼主的意思不是两个尺寸大小一致的GroupBox完全覆盖。而是各有暴露不被覆盖的一部分.....再汗自己