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

[roman]

Creo que estás enredando los mensajes del otro hilo. Un procedimiento como MiWindowProc nunca se manda llamar explícitamente en código. ¿Qué es exactamente lo que quieres lograr?

// Saludos

[novato_erick]

Gracias Roman por tu atención:

Simple evitar que en los dbedit se pueda copiar y pegar...


Saludos

[roman]

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); // Aquí quité frmIArticulo
  end
end;

// Saludos

[novato_erick]

Mil gracias roman por tu atencion nuevamente pero aun tengo mis dudas a ver si me puedes resolver.

a que se refiere con:

"Un procedimiento como MiWindowProc nunca se manda llamar explícitamente en código"

y tengo 4 dbedit que quiero que me haga lo mismo cual seria tu sugerencia?

Saludos...

[roman]

Ese tipo de procedimientos, sólamente se registran en Windows, y es éste quien los llama cuando hay algún evento que notificar. Es decir, que el código que pongas ahí, sí se va a ejecutar, pero lo hace directamente el sistema opertaivo y no tu código.

Lo de los 4 dbedit, pues primro pueba si funciona con uno y ya luego vemos el resto

// Saludos

[novato_erick]

si claro ya funciono en el primer DBEdit...

Saludos...

[ecfisa]

Hola.

Otro enfoque, tal vez un poco menos elegante, puede ser:

Código Delphi [-]
...
implementation

procedure TForm1.DBEditContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
  Handled:= True;
end;

procedure TForm1.DBEditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  Msg: TMsg;
begin
  if ((Shift = [ssCtrl] ) and (Key = Ord('V'))) then  // Ctrl+V
    PeekMessage(Msg, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
  if (Shift = [ssShift])and(Key = VK_INSERT) then     // Shift+Insert
    Key:=0;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to ComponentCount-1 do
    if Components[i] is TDBEdit then
    begin
      TDBEdit(Components[i]).OnContextPopup:= DBEditContextPopup;
      TDBEdit(Components[i]).OnKeyDown:= DBEditKeyDown;
    end;
end;
...

Saludos.