A ver, el código
Código Delphi
[-]
AntWindowProc := dbedtCod_Barra.WindowProc;
dbedtCod_Barra.WindowProc := MiWindowProc;
debes ponerlo en el OnCreate del formulario.
En el evento OnDestroy del formulario pones:
Código Delphi
[-]
dbedtCod_Barra.WindowProc := AntWindowProc;
Finalmente, deja así el método MiWindowProc:
Código Delphi
[-]
procedure TfrmIArticulo.MiWindowProc(var Message: TMessage);
begin
case Message.Msg of
WM_COPY, WM_PASTE:
ShowMessage('No puede Copiar ni Pegar')
else
AntWindowProc(Message); end
end;
// Saludos