TEdit, evitar copiar y pegar

[[Lepe]]

Madre del amor hermoso, usando labels y Gotos.... creo que me da algo...

Código Delphi [-]
procedure TF_LoginNewReg.MiWindowProc(var Message: TMessage);
begin
  case Message.Msg of
    WM_COPY, WM_PASTE:
      begin
    ShowMessage('No se puede realizar la operación solicitada');
    Casillero.Clear;

      end
    else // Si no es ninguno de los anterios llamamos al antiguo WndProc
      AntWindowProc(Message);
  end;
end;

jejeje, creo que mejor así. Saludos