blue fontcolor on tabs in pagecontrol

I have tried something here, but it doesn't work exactly as I want it to.
I want it to work like the tabs in the Delphi 7 IDE. The fontcolor becomes blue when mouseover, and black when not mouseover. highlighted does not make the fontcolor blue. Also, the IndexOfTabAt(x,y) does NOT return -1 if no there are no tabs in mouseover

can anyone help me finish this? I bet it's easy for you guys

procedure TIRForm.PageControl1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
i: integer;
begin
case Pagecontrol1.IndexOfTabAt(X,Y) of
 -1:RemoveBlueFonts;
  0:pabegynt.Highlighted := true;
  1:FerdigRegistrert.Highlighted := true;
  2:IkkeGodkjent.Highlighted := true;
  3:UnderBehandling.Highlighted := true;
  4:Godkjent.Highlighted := true;
  end;
end;
LVL 5
Darth_helgeAsked:
Who is Participating?
 
kretzschmarConnect With a Mentor Commented:
??
just set the HotTrack-property to true
-> no coding needed

meikl ;-)
0
 
Darth_helgeAuthor Commented:
darn-diddely-doo.

I'm so embarrased..
0
All Courses

From novice to tech pro — start learning today.