-
Сергей М. © (23.05.08 12:22) [20]
> MsGuns © (22.05.08 23:29) [19]
Да, есть в этом блюде кой-какие невкусные ингредиенты)
Но зато у него есть исходники, по которым можно приготовить собственное вкусное блюдо) -
ab (01.06.08 19:19) [21]несколько лет назад здесь же на тот же вопрос мне подсказали:procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
with Msg do
case Message of
WM_KEYDOWN:
if wParam=VK_DECIMAL then begin
Handled := True;
PostMessage(HWND, WM_CHAR, Ord('.'), lParam);
end;
WM_KEYUP:
if wParam=VK_DECIMAL then
Handled := True;
end;
end;