Текущий архив: 2002.06.13;
Скачать: CL | DM;

Вниз

Как сделать, чтоб работал BackSpace   Найти похожие ветки 

← →
MV-GROB ©   (2002-06-02 18:13) [0]

procedure TViborF.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);
Var fl:boolean;
begin
if key in["0".."9",","] then
begin
if key="," then
begin
if strscan(Pchar(LabeledEdit1.Text),",")=nil then
Fl:=False
else
fl:=true;
if fl=false then
Begin
key:=","
end
else
key:=#0
end

end
else
key:=#0;

end;



end.

---

← →
PVR ©   (2002-06-02 18:24) [1]

Придется наверно по OnKeyDown ловить OnKeyPress не видит ни че такого

---

← →
Song ©   (2002-06-02 18:36) [2]

Если не получится IF Key=Chr(VK_BACK) then ... значит только в onKeyDown

---

← →
MBo ©   (2002-06-02 19:10) [3]

Сначала фильтрация key in["0".."9",","]
Какого BackSpace потом ждать? #8 нет желания добавить?

strscan(Pchar(LabeledEdit1.Text),",")=nil тоже впечатляет, в отличие от сермяжной Pos

---

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

Текущий архив: 2002.06.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c