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