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

передать его данные в Edit200.text с Form1.ActiveControl.Name;   Найти похожие ветки 

← →
Aleks ©   (2005-02-03 20:46) [0]

Получили имя активного компонента на форме
так  Label1.Caption:= Form1.ActiveControl.Name;
А КАК передать его данные в другой компонент или переменную ?????????????
на форме есть много Edit(1....120).text
данные нужно передать в Edit200.text

---

← →
Gero ©   (2005-02-03 20:49) [1]

Edit200.Text := Form1.ActiveControl.Name;

---

← →
Aleks ©   (2005-02-03 20:59) [2]

Gero ©   (03.02.05 20:49) [1]
Edit200.Text := Form1.ActiveControl.Name;

так я получу его имя, а как получить его текст;
например я узнал что это Edit20, но что в свойстве text;
я хочу получить в итоге конструкцию типа a:=edit[i].text;

---

← →
jack128 ©   (2005-02-03 21:08) [3]

Ну так сохрани все эдиты в массив и пголучишь такую конструкцию...

---

← →
Aleks ©   (2005-02-03 21:13) [4]

А по подробней................
Я только начинаю :) Если можно с примером

---

← →
Gero ©   (2005-02-03 21:34) [5]

var
 A: array [1..MaxEditCount] of TEdit;

---

← →
_RusLAN ©   (2005-02-03 21:50) [6]

перебирай все компоненты на форме и сравнивай их свойсво Name c требуемым. когда найдеш приведи его к типу ТЕдит ы получи свойство Текст

---

← →
_RusLAN ©   (2005-02-03 21:50) [7]

перебирай все компоненты на форме и сравнивай их свойсво Name c требуемым. когда найдеш приведи его к типу ТЕдит ы получи свойство Текст

---

← →
Aleks ©   (2005-02-03 22:05) [8]

var
A: array [1..20] of TEdit;
begin

?:= Form1.ActiveControl.?;

Edit21.Text:=???

end;

Извени ничего не получается.

---

← →
wl ©   (2005-02-04 13:21) [9]


if(Form1.ActiveControl is TEdit) then
 Edit21.Text:=(Form1.ActiveControl as TEdit).Text;


---

← →
Aleks ©   (2005-02-06 21:55) [10]

Большое Спасибо всё получилось

---

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

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



Память: 0.47 MB
Время: 0.03 c