Компоненты RUN-TIME

← →
Ozone © (2003-02-20 13:35) [0]

Создаю на форме несколько Edit"ов (© Palladin):
var
Edit: array [1..5] of TEdit;
for i:=1 to 5 do begin
Edit[i]:=TEdit.Create(Application);
Edit[i].Parent:=Form1;
end;
Дак вот, как мне обрабатывать (для каждого) Edit[i] событие на изменение св-ва Text?

← →
REA © (2003-02-20 13:41) [1]

Практика показыват, что лучше один грид чем много эдитов в рантайме. А так - можно им задать разный tag например при создании и в обработчике его проверять.

Идиты 2.0 (Edits 2.0)

добавляем в описание гл формы
procedure OnMyEditChange(Sender:TObject);

procedure TForm1.OnMyEditChange;
begin
описываем то чего ты хочешь сделать
end;

var
Edit: array [1..5] of TEdit;
for i:=1 to 5 do begin
Edit[i]:=TEdit.Create(Application);
Edit[i].Parent:=Form1;
Edit[i].OnChange:=OnMyEditChange;
end;

Компоненты RUN-TIME Найти похожие ветки