Det går inte att tabba sig till en vanlig TLabel (för det är kanske en sådan du använder för din text?).
Det finns ett par tänkbara komponenter som går att ställa in så de liknar TLabel.
TPanel går det att tabba sig till, men det syns inte automatiskt att den har fokus - det måste du själv programmera. Dessutom reagerar den på tangentbordstryckning.
TEdit har ju ett visst beteende när den får fokus, så den kanske är ett alternativ.
Man kan trixa sig fram med hjälp av de standardkomponenter som finns, men det skulle förvåna mig storligen om du inte kan hitta en specialskriven komponent för det om du googlar lite...
Vill du använda TPanel kan du förslagsvis göra så här:
Panelens Properties
- Ställ in Alignment till taLeftJustify för att vänsterjustera texten
- Sätt BevelOuter till bvNone
- Skriv dit texten i Caption
- Sätt TabStop till true
Panelens Events
-
I OnEnter skriver du för att visa att panelen är vald exempelvis
pnl.Font.Style := [fsBold, fsUnderline] -
I OnExit skriver du för att "avmarkera" kontrollen
pnl.Font.Style := [] -
I OnClick skriver du förstås vad du vill ska hända om man klickar på den
Sedan lägger du till en osynlig knapp som är default, dvs som fångar "enter" från tangentbordet.
Knappens Properties
- Sätt Default = true
- Sätt Visible = false
Knappens Events
I knappens OnClick skriver du något i stil med:
if panel1.Focused then
panel1Click(Sender)
else if panel2.Focused then
panel2Click(Sender)
etc...