Форум: "Начинающим";
Текущий архив: 2009.03.29;
Скачать: [xml.tar.bz2];
Вниз
Отключить событие OnChange Найти похожие ветки
← →
MaxX (2009-02-02 15:07) [0]Подскажите как временно отключить событие OnChange у компонента TEdit ?
Дело в том что при передаче текста Едиту таким путем Edit1.Text := "Test"
это событие не должно срабатывать, при изменении в ручную, должно.
← →
Медвежонок Пятачок © (2009-02-02 15:13) [1]:= nil;
← →
Юрий Зотов © (2009-02-02 15:16) [2]Edit1.OnChange := nil;
try
...
finally
Edit1.OnChange := Edit1Change
end;
← →
Ega23 © (2009-02-02 15:18) [3]
> Дело в том что при передаче текста Едиту таким путем Edit1.
> Text := "Test"
> это событие не должно срабатывать, при изменении в ручную,
> должно.procedure SetEditText(Edit : TEdit; const Text : string);
var
onEditChng : TNotifyEvent;
begin
if Edit=nil then Exit;
try
try
onEditChng := Edit.OnChange;
Edit.OnChange := nil;
Edit.Text := Text;
finally
Edit.OnChange := onEditChng;
end;
except
end;
end;
← →
MaxX (2009-02-02 15:23) [4]Спасибо огромное
← →
Джо © (2009-02-02 18:24) [5]Или флаг устанавливать перед изменением, а в OnCnahge проверять значение этого флага.
← →
MaxX (2009-02-02 20:03) [6]Эхей...Апельсиновый Джо
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.03.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.049 c
