Форум: "Основная";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];

Вниз

edit1.Text:=edit1.Text - ПОСЛЕДНИЙ ВВЕДЁННЫЙ СИМВОЛ;   Найти похожие ветки 

← →
Валет   (2002-05-24 18:37) [0]

Как объяснить компу.

По событию Edit1Change

edit1.Text:=edit1.Text -ПОСЛЕДНИЙ ВВЕДЁННЫЙ СИМВОЛ;

C уважением , Валет

---

← →
Song   (2002-05-24 18:46) [1]

procedure TForm1.Edit1Change(Sender: TObject);
begin
With TEdit(Sender) Do Text:=Copy(Text,1,Length(Text)-1);
end;

или так:

procedure TForm1.Edit1Change(Sender: TObject);
Var S:String;
begin
S:=Edit1.Text;
Delete(S,Length(S),1);
Edit1.Text:=S;
end;

или так: :-))

procedure TForm1.Edit1Change(Sender: TObject);
begin
Keybd_event(VK_BACK,0,0,0);
Keybd_event(VK_BACK,0,KEYEVENTF_KEYUP,0);
end;

---

← →
McSimm   (2002-05-24 18:56) [2]

Это если последний введенный символ в конце. Но он может быть в любом месте. И не один (paste)

---

← →
MaximatorVeter   (2002-05-24 22:01) [3]

Сравнивать текущее значение свойства с предыдущим.

---

← →
Tahion   (2002-05-25 13:06) [4]

Можно попробывать определить место каретки в Эдите, а затем удалить символ, что находиться перед ней

---

← →
rhf   (2002-05-25 13:34) [5]

А вам не кажеться, что это бессмысленно - событие onChange возникает когда вы вводите символ, т.е. вы его же и удаляете, а это равносильно тому что вообще ничего не вводить (т.к. сначала onKeyPress а потом уже onChange) ...... или я не прав.........может вы edit програмно изменять собрались или что ....

---

← →
hp   (2002-05-25 15:10) [6]

Я так понимаю, что нужно нечто вроде вот такого:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var c:string;txt:string;
begin
if Key=13 then begin
c:=Copy(Edit1.Text,Length(Edit1.Text),1);
txt:=Edit1.Text;
while Pos(c, Txt)>0 do
Delete(Txt, Pos(c, Txt),1);
Edit1.Text:=Txt;
end;
end;

А вообще-то я согласен с rhf

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.005 c