Текущий архив: 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.084 c