Witam. To moje początki z Delphi 7. Chciałbym zrobić przycisk tzw. Backspace do usuwania tekstu z pola Edit. Czy mógłby mi ktoś napisać jak to zrobić?
0
0
Takie tematy to w dziale Newbie pisz.
0
Dziękuję, będę pamiętał na przyszłość
0
Chodzi Ci o zwykły przycisk TButton, którego akcją jest czyśczenie TEdit? Wstawiasz Button'a i w OnClick dajesz:
Edit1.Text := '';
0
Edit.Text := '';
Edit.Clear;
0
Źle sprecyzowałem, chodziło mi o pojedyncze kasowanie znaków :) Tak jak przycisk Backspace z klawiatury komputera.
0
a który znak byś chciał usnąć?
BTW zgadując Twoje następne pytania zapoznaj się z
funkcja Delete, Copy
i właściwości Edit SelStart i SelLength
0
Ostatni znak, np mamy abcd to po przyciśnieciu przycisku jeden raz usuwałby ostatni znak, czyli zostawałoby abc i kolejny raz po przyciśnięciu zostawałoby ab itd.
0
var s : string;
...
s := edit1.text;
if (length(s) > 1) then
setlength(s, length(s)-1);
edit1.text := s;
albo prosciej z uczyciem substring, jesli cos takiego jest w Delphi.