Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

передать его данные в Edit200.text с Form1.ActiveControl.Name; [D7, WinXP]

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

Aleks (2005-02-06 21:55:00) [1]
Большое Спасибо всё получилось

wl (2005-02-04 13:21:00) [2]
if(Form1.ActiveControl is TEdit) then Edit21.Text:=(Form1.ActiveControl as TEdit).Text;

Aleks (2005-02-03 22:05:00) [3]
var
A: array [1..20] of TEdit;
begin

?:= Form1.ActiveControl.?;

Edit21.Text:=???

end;

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

_RusLAN (2005-02-03 21:50:00) [4]
перебирай все компоненты на форме и сравнивай их свойсво Name c требуемым. когда найдеш приведи его к типу ТЕдит ы получи свойство Текст

_RusLAN (2005-02-03 21:50:00) [5]
перебирай все компоненты на форме и сравнивай их свойсво Name c требуемым. когда найдеш приведи его к типу ТЕдит ы получи свойство Текст

Gero (2005-02-03 21:34:00) [6]
var
A: array [1..MaxEditCount] of TEdit;

Aleks (2005-02-03 21:13:00) [7]
А по подробней................
Я только начинаю :) Если можно с примером

jack128 (2005-02-03 21:08:00) [8]
Ну так сохрани все эдиты в массив и пголучишь такую конструкцию...

Aleks (2005-02-03 20:59:00) [9]
Gero © (03.02.05 20:49) [1]
Edit200.Text := Form1.ActiveControl.Name;

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

Gero (2005-02-03 20:49:00) [10]
Edit200.Text := Form1.ActiveControl.Name;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »