procedure TSell.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if (Msg.Message=WM_KEYDOWN)and(Msg.wParam=VK_CONTROL+VK_HOME)then begin end;
delphi
delphi ×1