VPF::Как определить изменения в Edit?

Rusman

Дата 27.12.2008, 13:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 312
Регистрация: 4.5.2006
Где: Пермь

Репутация: нет
Всего: нет

Привет всем!
Мне нужно сделать так:
Вот пользователь отркыл настройки там набросаны 5 edit-ов к примеру. Кнопку ПРИМЕНИТЬ не доступна. Если он изменил хоть 1 символ в любом их этих едитов то кнопка ПРИМЕНИТЬ становится доступна. Как это сделать кто знает?
Всем спасибо!

Данкинг

Дата 27.12.2008, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Код


procedure TForm1.Edit1Change(Sender: TObject);
begin
Button1.Enabled:=true;
end;

--------------------

There's nothing left but silent epitaphs.

THandle

Дата 27.12.2008, 13:19 (ссылка)

(голосов:1)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

Rusman, поставь для всех Edit'ов один OnChange и проверяй для текущего(через Sender) есть ли в нем изменения.

Собственно, OnChange возникнет при любом изменении текста в TEdit, и если это и ножно, то можно просто поставить:

Код


procedure TForm1.EditChange(Sender: TObject);
begin
  Button1.Enabled := true;
end;

Добавлено через 2 минуты и 42 секунды

Цитата(THandle @ 27.12.2008, 13:19

)

Rusman, поставь для всех Edit'ов один OnChange и проверяй для текущего(через Sender) есть ли в нем изменения.

Это в случае если надо что то еще отслеживать будет smile

Rusman

Дата 27.12.2008, 13:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 312
Регистрация: 4.5.2006
Где: Пермь

Репутация: нет
Всего: нет

Спасибо еще раз! smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »