Как скопировать свойства компонента?

[Johnson]

Здравствуйте, уважаемые!

Динамически создаю панельки из набора компонентов AlphaControls.
Вопрос такой: как, не усложняя себе жизнь, прописать им свойства необходимые все?

Возможно ли создать на форме невидимую панель с нужными свойствами, и при создании новых панелей копировать свойства "шаблонной"? Если да - то как?

Заранее благодарен!

[mihali4]

Вы ведь новые панельки будете создавать на новых формах?
Воспользуйтесь репозитарием (Repository).
То есть создали первую форму с панелькой - занесите ее в репозитарий.
Нужна новая форма с такой же панелькой ?
Возьмите ее оттуда...

[Johnson]

можно пример?

PS:на одной (не основной) форме будет создаваться несколько панелей. Для примера - так же устроен Трэй Хинт в скайпе...

Кстати, попутно подскажите, как посчитать, сколько панелей на форме?

[dr.Chas]

Сообщение от Johnson

Кстати, попутно подскажите, как посчитать, сколько панелей на форме?

for i:=1 to Форма.ControlCount do
  begin
    Component1:=FindComponent('Панель'+IntToStr(i));
    If Component1 <> nil then
  end;

Подойдёт?

[Johnson]

вполне, только подскажите, FindComponent в каком модуле объявлен?

[Lime]

Classes

FindComponent + F1

function TComponent.FindComponent(const AName: string): TComponent;
var
  I: Integer;
begin
  if (AName <> '') and (FComponents <> nil) then
    for I := 0 to FComponents.Count - 1 do
    begin
      Result := FComponents[I];
      if SameText(Result.FName, AName) then Exit;
    end;
  Result := nil;
end;

[Johnson]

И ещё вопрос побочный) Надеюсь, модераторы меня не кастрируют за небольшой оффтоп

Вот создаю панели... Хочу сделать нечто вроде таймаута - при прохождении определенного времени нужно удалить этот компонент...
При создании компонента назначаю ему тэг. Так же ввёл процедуру удаления панели по номеру тэга...

Подскажите, как таймер правильно реализовать?

PS: вобще хорошо бы создавать так же таймер динамически, и на OnTimer назначить DelPanel(Tag); , но нельзя так... а умнее ничего придумать не получается)