Orden Clear me manda de nuevo al pricipio del procedimiento

[[nlsgarcia]]

alexglez1255,

...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
    { Private declarations }
  public
    { Public declarations }
  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.

[alexglez1255]

muchas gracias ECFISA por sus consejos creo que usare la que le pide que lo reescriba