Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 357
  • Last Modified:

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;
0
Darth_helge
Asked:
Darth_helge
1 Solution
 
kretzschmarCommented:
??
just set the HotTrack-property to true
-> no coding needed

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

I'm so embarrased..
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now