RE:Sustituir la el punto por la coma
Declaracion:
procedure AppOnMsg(var Msg: TMsg; var Handled: Boolean);
Procedimiento:
procedure TFormulario.AppOnMsg(var Msg: TMsg; var Handled: Boolean);
begin
case Msg.Message of
WM_KEYDOWN, WM_KEYUP:
if (Msg.wparam = VK_DECIMAL) and (Odd(GetKeyState(VK_NUMLOCK)))
then begin
Msg.wparam := 188; {190 para el punto, 188 para la coma}
Msg.lparam := MakeLParam(LoWord(msg.lparam),
(HiWord(Msg.lparam) and $FE00) +
MapVirtualKey(Msg.wparam, 0));
end;
end;
end;
En el create del formulario:
Application.OnMessage := AppOnMsg;//cambiar punto x coma