Как сделать, чтоб работал 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

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

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

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