Francisco Andrade - 2003-07-23

Hola simbiotik.

Mientras esperamos la 'esperada' version 2, te envio una solucion para las teclas de acceso rapido ctrl+c ctrl+v que no funcionaban en el dialogo de buscar y reemplazar (por lo menos en mi caso). Si le das el visto bueno tendras que sacar la version 1.9.5 ... y casi no tienes espacio para mas revisiones ;)

El problema era que con el codigo antiguo se ejecutaba el codigo del menu Edit/Copy..Paste,etc y este codigo no realizaba ninguna comprovacion simplemente pegaba y cortaba sobre la ventana activa.

Por eso prueba con algo parecido a esto:

procedure TMainForm.CortarExecute(Sender: TObject);
begin
  if Assigned(Screen.ActiveControl) then
  begin
    if (Screen.ActiveControl is TCustomEdit) then
      TCustomEdit(Screen.ActiveControl).CutToClipboard
    else
    If (Screen.ActiveControl is TControl) then
      SendMessage(Screen.ActiveControl.Handle, WM_CUT, 0, 0 );
  end;

end;

procedure TMainForm.PegarExecute(Sender: TObject);
begin
  if Assigned(Screen.ActiveControl) then
  begin
    if (Screen.ActiveControl is TCustomEdit) then
      TCustomEdit(Screen.ActiveControl).PasteFromClipboard
    else
    If (Screen.ActiveControl is TControl) then
      SendMessage(Screen.ActiveControl.Handle, WM_PASTE, 0, 0 );
  end;
end;

procedure TMainForm.CopiarExecute(Sender: TObject);
begin
  if Assigned(Screen.ActiveControl) then
  begin
    if (Screen.ActiveControl is TCustomEdit) then
      TCustomEdit(Screen.ActiveControl).CopyToClipboard
    else
    If (Screen.ActiveControl is TControl) then
      SendMessage(Screen.ActiveControl.Handle, WM_COPY, 0, 0 );
  end;
end;

Un saludo
Lunik

P.D.  Si necesitas alguna manita (cuarto ojos ven mas que dos) hazmelo saber.