TEdit, evitar copiar y pegar violación en memoria al cerrar formulario

[novato_erick]

Hola a todos.

Encontré un hilo del foro muy interesante el cual quise implementarlo en el proyecto sin embargo pasa algo curioso:

Este es el ejemplo en código:

Código Delphi [-]
procedure TfrmIArticulo.MiWindowProc(var Message: TMessage);

begin
  case Message.Msg of
    WM_COPY, WM_PASTE:
  begin
      ShowMessage('No puede Copiar ni Pegar');
  end
    else
      frmIArticulo.AntWindowProc(Message);
  end
end;

ok segun la sugerencia en esto hilo http://www.clubdelphi.com/foros/show...iar+pegar+Edit dicen que puedo utilizar este procedimiento llamándolos desde los eventos; En este caso yo utilizo DBEDIT de esta forma:

Código Delphi [-]
procedure TfrmIArticulo.dbedtCod_BarraKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
AntWindowProc := dbedtCod_Barra.WindowProc;
dbedtCod_Barra.WindowProc := MiWindowProc;
end;

al final este me cierra la aplicacion de forma y si lo pongo en el evento onShow de formulario me manda el mansaje : de no se puede copiar ni pegar pero al cerrar el formulario me manda ---------------------------
Yanelis
---------------------------
Access violation at address 006F5B95 in module 'Yanelis.exe'. Read of address 000003DC.
---------------------------
Aceptar
---------------------------

al final he tratado de que mi formulario se comporte correctamente y nada.


Saludos a todos


novato_erick