Como faço pra o onchange dos dbedits receber isso?

Delphi

21/09/2007

Boa tarde,
Tenho esse código abaixo pra colocar no evento OnChange dos DBEdits, mas gostaria que todos os meus DBEdits recebam esse código e não ter que criar uma chamada pra cada. Tem como fazer? Tentei o Sender, mas dá erro no SelStart. 

var
  i: integer;
begin
  i := dbedtNome.SelStart;
  dbedtNome.Text := FormataNome(dbedtNome.Text);
  dbedtNome.SelStart := i;
end;



Facc

Facc

Curtidas 0

Respostas

Marcosrocha

Marcosrocha

21/09/2007

var 
  i: integer; 
begin
  if (Sender is DBEdit) then
  begin
    i := (Sender as DBEdit).SelStart; 
    (Sender as DBEdit)..Text := FormataNome((Sender as DBEdit).Text); 
    (Sender as DBEdit).SelStart := i; 
  end;
end;
:wink:


GOSTEI 0
Marcosrocha

Marcosrocha

21/09/2007

Perdão, só depois de postar eu vi... onde no meu código tem DBEdit, coloque a classe TDBEdit... :oops:


GOSTEI 0
POSTAR