Re[2]: Создание компонентов в RUN-TIME
От: Ozone Россия  
Дата: 20.02.03 10:52
Оценка:
Здравствуйте, _MarlboroMan_, Вы писали:

_MM_>Здравствуйте, Ozone, Вы писали:


_MM_>

_MM_>

_MM_>procedure TMyForm.EditChange(Sender: TObject);
_MM_>begin
_MM_>//---------------------
_MM_>end;

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


А как в процедуре EditChange узнать над каким именно 1..5 совершается действие
(просто мне нужно, чтобы при изм. 1-го данные заносились туда-то, при изм. 2-го туда-то, и т.д.)
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.