procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in shift) And (Key=VK_RETURN) then
begin
ShowMessage('OK!');
end
end;
Shift: TShiftState);
begin
if (ssCtrl in shift) And (Key=VK_RETURN) then
begin
ShowMessage('OK!');
end
end;
不行呀,我要在按下快捷键时结束richedit的输入,同时作些其他事,我按你的代码只是换行.
怎么回事?
or shift=ssctrl