Главная страница
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.051 c
9-1138054239
Аццкий_рыцарь:)
2006-01-24 01:10
2006.11.05
TBackGroundSprite В DelphiX...


15-1161150741
Quester
2006-10-18 09:52
2006.11.05
Загадка


2-1161443898
rds_home
2006-10-21 19:18
2006.11.05
Объем памяти занимаемый приложением


15-1160607272
Бабай
2006-10-12 02:54
2006.11.05
Google Code Search не ищет по Паскалю !


2-1161292479
markers
2006-10-20 01:14
2006.11.05
Регулярные выражения