Problem mit Umlauten als Accelerator

[Sourcemaker]

Ich habe seit kurzen eine Anwendung auf Delphi7 (von D5) umgestellt und bekam jetzt von einem Anwender gesagt das gewisse Kurztasten nicht mehr funktionieren betroffen sind Buttons wo die Caption "&Ändern" oder "Übergabe" (&Ö ebenso) nicht funktioniert. Wie ich in CMDialogChar festgestellt habe wird ein falscher Charcode gesendet statt 142 228.

Ist das schon jemanden aufgefallen und ist es lösbar ?

Mfg.

Frank Klose

[Sourcemaker]

Das mit dem Charcode habe ich falsch interpretiert da der Code noch wieder gewandelt wird ist diese Übergabe Ok das Problem taucht später auf in der Funktion IsAccel:

Delphi-Quellcode:

function IsAccel(VK: Word; const Str: string): Boolean;
begin
  Result := CompareText(Char(VK), GetHotKey(Str)) = 0;
end;

So funktioniert es wieder:

Delphi-Quellcode:

function IsAccel(VK: Word; const Str: string): Boolean;
begin
  Result := CompareText(AnsiUpperCase(Char(VK)), AnsiUpperCase(GetHotKey(Str))) = 0;
end;

Jetzt während ich das schreibe und versuche der Sache auf den Grund zu gehen durch diverse Test und Vergleiche habe ich des Rätsels Lösung.
Ich Nase hat vor 2,5 Jahren bereits die Forms.Pas entsprechend gepatcht und daran hatte ich offensichtlich nicht mehr gedacht.
Davon abgesehen verstehe ich die Beschreibung von CompareText nicht müsste Umlaute richtig erkannt werden oder nicht ?

Grüße

Frank Klose

[neolithos]

Nimm doch gleich AnsiCompareText. ist das gleiche!