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