Kann man die unten beschriebene Funktion eigentlich abstellen?

label1.caption := 'bla &Schwätz'; nun ist doch der Buchstaber 'S' unterstrichen und kann mit ALT-S angesprochen werden.

Wenn ich nun aber das genau so da stehen haben will, wie das steht, müsste ich ja dieses tun:

label1.caption := 'bla &&Schwätz'; Was mach ich aber, wenn einen variablen Textstring angezeigt haben will, und ich diese Funktion nicht brauche oder sie sogar stört.

Im konkreten Fall sieht das so aus und das ist doof.

siehe Anhang.

Hallo padavan,

vielleicht hilft dir das hier?

markieren

Delphi-Quellcode:

function EscapeCaption(caption: string): string;
var
  i: integer;
begin
  for i := Length(caption) downto 1 do
    if caption[i] = '&' then
      Insert('&', caption, Succ(i));
  Result := caption;
end;

Grüße vom marabu

guck im objektinspektor. "accelchar" nennt sichs. kann man auch deaktivieren.

Moin marabu,
yo danke - es hilft auf jeden Fall weiter.
Wird heut Abend gleich eingebaut....

Danke (wie immer)


Edit:
hallo ripper8472,
aha, dass hatte ich eigentlich gesucht!

Danke euch beiden

Sorry, habe nicht genau gelesen. Ein Label immunisierst du natürlich über die property, wie Christoph es vorschlägt. Mein Code stammt aus einem Programm, bei dem es um MenuItems ging.

marabu

PS: die property heißt übrigens ShowAccelChar...

Hi marabu,

hab´s gefunden.

Deine Funktion hat mich trotzdem neugierig gemacht, weiß jetzt auch wozu 'succ' gut ist.
Nur so lern ich´s, denn in einer Befehlsreferenz wahllos Befehle anschauen - die merk ich mir nicht mal 2 Minuten.
So aber schon.....

Danke dir