Цитата:
|
Сообщение от ART
Что-то я не догнал, что надо сделать...
Код:
procedure TForm1.SButtonClick(Sender: TObject);
begin
Showmessage((Sender as TSoundButton).Caption);
end;
Так что ли? |
Ещё раз извиняюсь, но мож нада читкать внимательней, а мож я плохо разжевал... Так вот - механизм следующий: RecurseDir находит первую попавшуюся папку по адресу CurDir + '\Soft\', вызывает CreateButtons кот. создаёт 1-й экземпляр SButton1 с атрибутами Name/Caption := SButton0/Antivir, 2-я папка "генерит" SButton1/Office, 3-я ......2/System, 4-я....3/Util -> RecurseDir.Стоп - папок больше нет. Как оказалось у SButton1 остаются последние аттрибуты, а Antivir, Office и System существовали лишь в момент создания клона и дальнейшее их использование без хранения в массиве по-моему не представляется возможным, а вопрос по массиву - постом выше