Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.021 c
14-40188
Blackweber
2002-05-08 22:43
2002.06.13
HDD Samsung SpinPoint на 60 Gb 5400rpm


1-40106
eSKey
2002-05-24 12:35
2002.06.13
Бред с отображением кэпшнов на формах.


3-39922
budhha
2002-05-18 04:18
2002.06.13
RTF в поле


6-40142
DHCP
2002-04-02 19:17
2002.06.13
Чат и ServerSocket


1-40071
Hopsit
2002-06-02 14:42
2002.06.13
Сохранение Word документа из Delphi