суббота, 27 апреля 2013 г.

Ещё правки в VCL (8)


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

Комментариев нет:

Отправить комментарий