key de CTRL+V y de CTRl+C

[[seoane]]

Creo que estamos confundiendo las cosas, cuando copiamos o pegamos, ya sea usando el menú o utilizando alguna combinación de teclas, lo que llega al edit son los mensajes WM_COPY y WM_PASTE. En ningún momento llegan al edit las pulsaciones de esas teclas porque se procesan por windows mucho antes.

Para controlar cuando, y como, se copia y se pega lo que tenemos que hacer es interceptar los mensajes WM_COPY y WM_PASTE. Se puede hacer de varias maneras, pero ahora mismo se me ocurre que lo podemos hacer sustituyendo el WndProc del edit. Algo así:

Código Delphi [-]
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    AntWindowProc: TWndMethod;
    procedure MiWindowProc(var Message: TMessage);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MiWindowProc(var Message: TMessage);
begin
  case Message.Msg of
    WM_COPY:
      begin
         // Aqui lo que quieras
      end;
    WM_PASTE:
      begin
         // Aqui lo que quieras
      end;
    else // Si no es ninguno de los anterios llamamos al antiguo WndProc
      AntWindowProc(Message);
  end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AntWindowProc:= Edit1.WindowProc;
  Edit1.WindowProc:= MiWindowProc;
end;

[roman]

Empezado por seoane

Creo que estamos confundiendo las cosas, cuando copiamos o pegamos, ya sea usando el menú o utilizando alguna combinación de teclas, lo que llega al edit son los mensajes WM_COPY y WM_PASTE. En ningún momento llegan al edit las pulsaciones de esas teclas porque se procesan por windows mucho antes.

Estoy de acuerdo contigo y el método que propones es, a mi juicio, el correcto, porque ataca la raíz del problema: copiar y pegar. Pero esas pulsaciones no sólo sí llegan al control sino que sí son interceptables y anulables en los eventos OnKeyDown y/o OnKeyUp.

// Saludos

[fidel]

Gracias a todos, voy a ponerme con lo que me indicais.

Un saludo.

[[seoane]]

Empezado por roman

Pero esas pulsaciones no sólo sí llegan al control sino que sí son interceptables y anulables en los eventos OnKeyDown y/o OnKeyUp.

Caramba, hubiera jurado que se comportaban igual que la tecla TAB. Eso me pasa por no haberlo comprobado

[fidel]

Lo he solucionado a través del evento OnChange del edit. Controlo que el edit solo pueda admitir números con una coma, y el edit permite copiar y pegar.

Gracias. Un saludo.