UniDBEdit SelStart

[belo]

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;

[tgb.amaro]

Bom dia,

 

 

Consegui resolver este problema?