Solved

blue fontcolor on tabs in pagecontrol

Posted on 2003-11-20
2
348 Views
Last Modified: 2010-04-05
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
Comment
Question by:Darth_helge
2 Comments
 
LVL 27

Accepted Solution

by:
kretzschmar earned 35 total points
Comment Utility
??
just set the HotTrack-property to true
-> no coding needed

meikl ;-)
0
 
LVL 5

Author Comment

by:Darth_helge
Comment Utility
darn-diddely-doo.

I'm so embarrased..
0

Featured Post

Why You Should Analyze Threat Actor TTPs

After years of analyzing threat actor behavior, it’s become clear that at any given time there are specific tactics, techniques, and procedures (TTPs) that are particularly prevalent. By analyzing and understanding these TTPs, you can dramatically enhance your security program.

Join & Write a Comment

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
Illustrator's Shape Builder tool will let you combine shapes visually and interactively. This video shows the Mac version, but the tool works the same way in Windows. To follow along with this video, you can draw your own shapes or download the file…

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now