Скачать: CL | DM;

Компоненты 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 например при создании и в обработчике его проверять.

---

← →
Palladin ©   (2003-02-20 13:45) [2]

Идиты 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c