&-Zeichen in TTabsheet.caption

[harrybonn]

Lazarus 1.26 unter Linux (unter Windows kein Problem):

Zur Designzeit hat das TTabSheet.caption den Eintrag ('&Termin").

Zur Laufzeit möchte ich dem TTabsheet.caption den Text "&Aufgabe" versehen, das "&" ist als wieder Shortcut-qualifier gedacht.

Nur wird das "&"Zeichen tatsächlich als einzelnes Zeichen angezeigt und auch der Shortcut funktioniert nicht.

Was ist hier zu tun?

[wp_xyz]

Das scheint ein gtk2 Problem zu sein - mit qt funktioniert es. Wäre einen Bug-Report wert...
Als Abhilfe habe ich gesehen, dass das & verschwindet, wenn man das Tabsheet wechselt. Das kann man dann so in Code gießen, so dass die vorher aktive Seite bleibt:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  actpage: TTabsheet;
begin
  actpage := PageControl1.Activepage;
  Tabsheet2.Caption := 'T&est';
  PageControl1.Activepage := Tabsheet2;
  PageControl1.Activepage := actpage;
end; 

[harrybonn]

Hier funktioniert dieser Work-Around leider nicht.