работа с компонентами

← →
mike ilin (2006-10-23 11:24) [0]

Подскажите, как программно работать с активным компонентом.
Например:
На форме имею несколько компонентов TEdit, по нажатию кнопки мне надо вывести в Label1 текст из активного TEdit.
Мой вариант:
procedure TForm1.Button1Click(Sender: TObject);
var
ed : array of TEdit;
begin
if ActiveControl <> nil then
if ActiveControl in ed then Label1.Caption := ActiveControl.Text; **
end;
компилятор не пропускает: ** Operator not applicable to this operand type.
Заранее благодарен. Андрей.

← →
Dmitrij_K (2006-10-23 11:26) [1]

if (ActiveControl<>nil) and (ActiveControl is TEdit) then
Label1.Caption := TEdit(ActiveControl).Text

← →
Dmitrij_K (2006-10-23 11:27) [2]

Чую не поможет, как только нажмешь на кнопку, ActiveControl сменится и условие не прокатит

> Чую не поможе

Правильно чуеш

> mike ilin

Как вариант :
Для каждого Едита прописаваеш одну процедуру OnEnter и пробуеш так :

procedure TForm1.Button1Click(Sender: TObject); begin caption:=TEdit(Components[Button1.Tag]).Text; end; procedure TForm1.Edit1Enter(Sender: TObject); begin Button1.Tag:=tedit(sender).ComponentIndex; end;

работа с компонентами Найти похожие ветки