Текущий архив: 2006.11.05;
Скачать: CL | DM;

Вниз

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

← →
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 сменится и условие не прокатит

---

← →
Elen ©   (2006-10-23 11:50) [3]

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

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


> 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;

---

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

Текущий архив: 2006.11.05;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.042 c