Как повесится на 40 полях ?? :)

← →
Pirat © (2003-05-19 23:24) [0]

Подскажите пожалуйста, как проще всего решить следующуу задачку. Уменя есть приблизительно 40 TEdit, разбросанных по разным страница. Хочется знать если будет изменен хотя бы один из них ... как это сделать ? Указать для всех одинаковый обработчик - долго ... их и выделить то все тяжело...

← →
Forester (2003-05-19 23:32) [1]

Единый обработчик для всех ТEdit можно назначить программно, если лень руками.

Form1=class(TForm)
.....
public
procedure DoChange(Sender:TObject); // обработчик события
.....
end;

implementation

procedure Form1.FormCreate(Sender:TObject)
var
i:integer;
begin
for i:=0 to Components.Count-1 do
if Components[i] is TEDit then
(Components[i] as TEdit).OnChange:=DoChange;
end;

← →
ghg © (2003-05-20 07:38) [2]

>Forester (19.05.03 23:32)
Дык разве это будет работать если, Tedit"ы на разных формах?

Нужно смотреть не TEdit-ы а компонентыдоступа к данным, к которым они подключены, не знаю, сколько их у тебя... В общем
TDataSet.Modified

Как повесится на 40 полях ?? :) Найти похожие ветки