I'd override the message handler for the WM_COPY and WM_CUT message. The
overridden methods should do nothing.

type
  TNoClipMemo = class(TMemo)
  private
    procedure WmCopy(var Msg: TMessage); message WM_COPY;
    procedure WmCut(var Msg: TMessage); message WM_CUT;
  end;

procedure TNoClipMemo.WmCopy(var Msg: TMessage);
begin
  //NOP
end;

procedure TNoClipMemo.WmCut(var Msg: TMessage);
begin
  //NOP
end;

Cheers,

Peter

On Wed, Nov 26, 2008 at 6:13 PM, SoftTech <[EMAIL PROTECTED]> wrote:

> Greetings All,
>
> Delphi 5.1
>
> Does anyone know of a way to allow a user to view the contents of a memo,
> but not allow them to copy it?
>
> Thanks for any pointers,
> Mike
> __________________________________________________
> Delphi-Talk mailing list -> [email protected]
> http://lists.elists.org/cgi-bin/mailman/listinfo/delphi-talk
>
__________________________________________________
Delphi-Talk mailing list -> [email protected]
http://lists.elists.org/cgi-bin/mailman/listinfo/delphi-talk

Reply via email to