| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сделать, чтоб работал BackSpace [D6]
MV-GROB © (2002-06-02 18:13:00)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.
MBo (2002-06-02 19:10:00) [1]Сначала фильтрация key in["0".."9",","]
Какого BackSpace потом ждать? #8 нет желания добавить?
strscan(Pchar(LabeledEdit1.Text),",")=nil тоже впечатляет, в отличие от сермяжной Pos
Song (2002-06-02 18:36:00) [2]Если не получится IF Key=Chr(VK_BACK) then ... значит только в onKeyDown
PVR (2002-06-02 18:24:00) [3]Придется наверно по OnKeyDown ловить OnKeyPress не видит ни че такого
| |
