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

[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.

[novato_erick]

Hola.

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

eficsa Gracias por tu enfoque es interesante aunque sabemos que un usuario si no le aparece un comportamiento que es acostumbrado nos dicen: "El sistema no Sirve".... Así que para darle un poco de colorido agregue algo en este procedimiento simple de novato como mi persona pero da un toque a tu código eficsa.

Código Delphi [-]
procedure TfrmIngresoCliente.DBEditContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
   showmessage ('no se pertime tal cosa');// Este mensaje es lo diferente nada mas...
   Handled:= true;
end;

Pero hay algo que me gustaría arreglar... quiero que ese comportamiento solamente se de en ciertos dbedit por ejemplo en Dos Edit no e todo el form. trate desde los eventos de cada DBEdit que necesito pero nada.


que me sugieres?


//Saludos

[ecfisa]

Hola.

Podes agregarle los eventos sólo a los edits que desees. Ya sea por código como en el ejemplo que te puse, o desde el Object Inspector en tiempo de diseño.

Saludos.