alexglez1255,
Cita:
...hago un edtbuscarCte.clear para borrar los datos...Orden Clear me manda de nuevo al principio del procedimiento edtBuscarCteChange...
|
Revisa esta información:
El método Clear del TEdit,
dispara el evento OnChange al producirse un cambio en el contenido del TEdit.
Revisa este código:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
edtBuscarCte: TEdit;
procedure edtBuscarCteKeyPress(Sender: TObject; var Key: Char);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.edtBuscarCteKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#8]) then
Key := #0;
end;
end.
El código anterior en Delphi 7 sobre Windows 7 Professional x32,
Solo permite la entrada de números, tecla de retroceso y flechas de dirección en un TEdit evitando la necesidad de validar dicha entrada por caracteres distintos a dígitos.
Espero sea útil
Nelson.