помогите, пожалуйста, решить
задачку

форма
PageControl
на нем TabSheets - 3 штуки

хочу, чтоб при перемещении мыши над заголовками
показывал HINT для каждого TabSheet

opa - это номер закладки, его можно перехватывать,
но хинт, не показывает,

только когда войдешь на закладку - тогда показывает, а хотелось бы динамически - когда мышь над ярлыком закладки


вот примитивный код

var opa: Integer;
.....
uses commstrl;

function PCDetectTab(PC: TPageControl; x, y: Integer): Integer;
var
hi: TTCHitTestInfo;
begin
hi.pt.x := X;
hi.pt.y := Y;
hi.flags := 0;
Result := PC.Perform(TCM_HITTEST, 0, longint(@hi));
end;


procedure TForm1.PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
opa:=PCDetectTab(PageControl1,X,Y);
end;



ICQ= 152950137