with just
Code: Select all
procedure TRichViewEdit.EMReplaceSel(var Msg: TMessage); message EM_REPLACESEL;
begin
InsertText(PChar(Msg.LParam));
end;
Code: Select all
procedure TRichViewEdit.EMReplaceSel(var Msg: TMessage); message EM_REPLACESEL;
begin
InsertText(PChar(Msg.LParam));
end;