Apagar o conteúdo do edit ?

Delphi

09/03/2004

Olá Amigos, tô com um probleminha. acho que alguém vai me responder.

To querendo apagar o conteúdo de um edit de atrás para frente, do mesmo modo que funciona a tecla Backspace. más quero clicar em um botão e a cada click caractér por caractér do edit vai de apagando


desde já agradeço a quem puder me ajuda


Infocom

Infocom

Curtidas 0

Respostas

Marcelo

Marcelo

09/03/2004

Bom cara, se eu entendi direito, acho que essa rotina irá ajuda-lo:

// coloque esse código no evento OnClick do botão que deseja apagar o conteúdo
...
var
 i : Integer;
begin
  i := Lentg( Edit1.Text );
  Edit1.Text[i] := ´´;
...


Valeu cara?

[b:22e5b9a705]Obs. : Se tiver algo errado, é porque eu não testei o código, mas com algumas adaptações( caso necessite ) irá funcionar![/b:22e5b9a705]


GOSTEI 0
Beppe

Beppe

09/03/2004

Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text) - 1);



GOSTEI 0
POSTAR