Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.18;
Скачать: CL | DM;

Вниз

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

 
desc   (2007-01-31 15:53) [0]

with TPanel.Create(self) do begin
Name:="aaa";
........
 end;

Если так создаю компонент, то как потом по имени обратиться?
Или как, вообще, его найти?


 
Efir   (2007-01-31 15:58) [1]

FindComponent


 
Сергей М. ©   (2007-01-31 16:00) [2]


> как потом по имени обратиться?


"Потом" - это когда ?
В обработчике какого события какого объекта ?


 
desc   (2007-01-31 16:11) [3]

Потом - это когда я уже "не в with".

>> FindComponent
да вот что-то ошибку дает

Хотя проверил - работает это:

procedure TForm1.Button1Click(Sender: TObject);
begin
 with TPanel.Create(self) do begin
     Parent:=self;
     Name:="aaa";
     Visible:=True;
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 TPanel(FindComponent("aaa")).Width:=TPanel(FindComponent("aaa")).Width+50;
end;


буду разбираться.........


 
Сергей М. ©   (2007-01-31 16:14) [4]


> проверил - работает это


Потому что в теле Button1Click и Button2Click self"ом выступает один и тот же объект



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

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

Наверх




Память: 0.47 MB
Время: 0.038 c
15-1170157396
Janniy
2007-01-30 14:43
2007.02.18
Вакансия программист Delphi+ MsSQL + ASP.NET


2-1170240363
<X>
2007-01-31 13:46
2007.02.18
Ошибка при созданнии файла


3-1163139508
WhiteBarin
2006-11-10 09:18
2007.02.18
Текущая дата в FireBird?


15-1170075240
frari
2007-01-29 15:54
2007.02.18
Скинуть файл


2-1170264012
Шоломицкий С. А.
2007-01-31 20:20
2007.02.18
Объединение UPDATE