上一篇
下一篇
RxRichEdit回车不换行
作者:webfly 日期:2007-04-03
//把事件放在KeyDown裡面;
procedure TForm1.RxRichEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key=word(#13) then begin
key:=word(#0);
ShowMessage ('Thanks!');
end;
end;
procedure TForm1.RxRichEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key=word(#13) then begin
key:=word(#0);
ShowMessage ('Thanks!');
end;
end;
文章来自: 
引用通告: 
Tags: 
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
