Блокировка точки !! - Помощь студентам

***СкаЙ*** · 13.06.2007, 12:04

Над заблокировать ввод точки с клавиатури если она уже введена.

Plague · 13.06.2007, 14:14

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key=',')and(pos(',',edit1.Text)>0) then key:=#0;
end;

13.06.2007, 12:04	#1
*СкаЙ* Пользователь Регистрация: 02.04.2007 Сообщений: 38	Блокировка точки !! Над заблокировать ввод точки с клавиатури если она уже введена.

13.06.2007, 14:14	#2
Plague Забанен Форумчанин Подтвердите свой е-майл Регистрация: 01.11.2006 Сообщений: 420	procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (key=',')and(pos(',',edit1.Text)>0) then key:=#0; end; Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Принадлежность точки	Forro	Помощь студентам	4	26.05.2008 14:33
Отбражение чисел - точки, это точки, а не запятые, обозначающие дробную часть	Дикий	Помощь студентам	7	12.05.2008 17:57
Принадлежность точки	UnFaithful	Паскаль, Turbo Pascal, PascalABC.NET	1	08.01.2008 06:16
Точки в Chart	yulia	Компоненты Delphi	3	26.09.2007 22:22
принадлежность точки многоугольнику	LevioFUN	Общие вопросы Delphi	14	08.12.2006 16:07