Текущий архив: 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.44 MB
Время: 0.036 c
