Fórum Como faço pra o onchange dos dbedits receber isso? #346382
21/09/2007
0
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.
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
Curtir tópico
+ 0
Responder
Posts
21/09/2007
Marcosrocha
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;
Responder
Gostei + 0
21/09/2007
Marcosrocha
Perdão, só depois de postar eu vi... onde no meu código tem DBEdit, coloque a classe TDBEdit... :oops:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)