| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Пресловутый EDIT [D7]

Страницы:   < 1 2 >

Neket ©   (2006-08-30 11:35:00) 

Подскажите как запретить вводить пробел в EDIT. пытаюсь через OnChange так он ругается причем непонятно на что. Вот пример того как я это делаю:

procedure TForm1.Edit4Change(Sender: TObject);
Var
s:string;
begin
s:=Edit4.Text;
IF s[Length(s)]=' ' then
                   begin
                   Showmessage('Пробел не допустимый символ');
                   Edit4.SetFocus;
                   Edit4.Text:='';
                   end;
end;

---

Neket   (2006-08-30 11:42:00) [21]

Спасибо.

---

Ega23   (2006-08-30 11:42:00) [22]

> Palladin ©   (30.08.06 11:40) [1]


Не защитит от вставки из буфера.  :(

---

Palladin   (2006-08-30 11:40:00) [23]

В событие OnKeyPress

If Key=' ' Then key:=#0;

---

Страницы:   < 1 2 >

Наверх