Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.47 MB
Время: 0.036 c
2-1161322857
_Mouse_
2006-10-20 09:40
2006.11.05
Привязка открытия сайта на кнопку в программе.


15-1161223351
SerJaNT
2006-10-19 06:02
2006.11.05
Яркость рисунка


2-1161240821
Helen
2006-10-19 10:53
2006.11.05
Как скопировать все файлы из каталога


15-1161156717
IMHO
2006-10-18 11:31
2006.11.05
Динамо Киев идет на вечный рекорд Спартака?


15-1160653660
Сергей М.
2006-10-12 15:47
2006.11.05
С -> D