pagecontrol中的hint

Question

如何只在tabsheet标头那提示hint？

Answer 1

参考如下代码：
var
  ARect: TRect;
procedure TForm1.PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  R: TRect;
  i: Integer;
begin
  i := PageControl1.IndexOfTabAt(X, Y);
  if i < 0 then Exit;
  R := PageControl1.TabRect(i);
  if not EqualRect(R,ARect) then
  begin
    PageControl1.ShowHint := True;
    PageControl1.Hint := PageControl1.Pages[i].Caption;
    Application.ActivateHint(Mouse.CursorPos);
    ARect := R;
  end;
end;