VPF::Взаимное обновление TEdit в OnChange

Keeper89

Дата 16.6.2010, 16:05 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Доброго времени суток.

Требуется обновлять содержимое Edit'ов в зависимости от сопряженного с ним Edit'а в событии OnChange.
Как это реализовать и избежать зацикливания?

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

CodeMonkey

Дата 16.6.2010, 16:25 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

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

Код

procedure TForm1.Edi1Change(Sender: TObject);
var
  SavedHandler: TNotifyEvent;
begin
  SavedHandler := Edit2.OnChange;
  try
    Edit2.OnChange := nil;
    Edit2.Text := ExtractFileName(Edit1);
  finally
    Edit2.OnChange := SavedHandler;
  end;
end;

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Keeper89

Дата 16.6.2010, 16:56 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Хорошо, а проверка через Sender как вариант не подойдет?

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

CodeMonkey

Дата 16.6.2010, 17:00 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

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

Нет, Sender всегда будет Edit1 или Edit2. OnChange вызывает Edit1, поэтому Sender = Edit1. То, что OnChange вызывается как реакция на Text := 'abc' в Edit2, никак не отражается на Sender. Легко сообразить, потому что Edit1.Text := 'abc'; может стоять и вовсе не в методе объекта.

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Frees

Дата 16.6.2010, 17:20 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

Код


procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Sender = ActiveControl then
    Edit2.Text := 'test';
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  if Sender = ActiveControl then
    Edit1.Text := 'test';
end;

а так?

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

Кольцов Виктор Владимирович

Proxin

Дата 17.6.2010, 01:01 (ссылка)

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

Загрузка ...

Опытный

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

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

зачем так сложно - разве при ручном( := ) присваивании вызывается onchange?
ещё можно на keyup повесить обновление, если только ручное.
upd: всё, понял. тогда, в самом простом случае, как frees описал. а, вообще, с ними работа идёт из одного потока?

Это сообщение отредактировал(а) Proxin - 17.6.2010, 01:09

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