T tinytao Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-29 #2 procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char); begin if key in [#13,#10] then key:=#0; end; Ctrl+Enter //键值为10；
procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char); begin if key in [#13,#10] then key:=#0; end; Ctrl+Enter //键值为10；
M mafan Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-30 #3 为什么在ONKEYDOWN的事件中不起作用，我希望最好在ONKEYDOWN里解决，不知可否？
T tinytao Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-30 #5 执行次序时 OnKeyDown OnKeyPress 在OnKeyDown把Key改为0；但在OnKeyPress Key还是原来的Key; 你可以在程序跟踪看看。这个问题最好在OnKeyPress， 复杂点可以自定义消息。
执行次序时 OnKeyDown OnKeyPress 在OnKeyDown把Key改为0；但在OnKeyPress Key还是原来的Key; 你可以在程序跟踪看看。这个问题最好在OnKeyPress， 复杂点可以自定义消息。
M menxin Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-30 #6 if (Key=vk_return)and(Shift=[ssctrl]) then key:=VK_BACK;
T tinytao Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-30 #9 我就试了，发现有一个很大的BUG。从BUG中可以明显看到你没测试。
M menxin Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-30 #11 procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key=vk_return)and(Shift=[ssctrl]) then key:=VK_BACK; end;
procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key=vk_return)and(Shift=[ssctrl]) then key:=VK_BACK; end;
