belo Posted January 31, 2013 Share Posted January 31, 2013 Hi, TUniDBEdit does not contain a menber named 'SelStar'! How can I adapt the example below? procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key = #8 then exit; if Length(Edit1.Text) = 3 then begin Edit1.Text := Edit1.Text + '.'; Edit1.SelStart := Length(Edit1.text); end; if Length(Edit1.Text) = 7 then begin Edit1.Text := Edit1.Text + '.'; Edit1.SelStart := Length(Edit1.text); end; if Length(Edit1.Text) = 11 then begin Edit1.Text := Edit1.Text + '-'; Edit1.SelStart := Length(Edit1.text); end;end; Quote Link to comment Share on other sites More sharing options...
tgb.amaro Posted May 13, 2019 Share Posted May 13, 2019 Bom dia, Consegui resolver este problema? Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.