Цитата:
|
Сообщение от angvelem
Элементарно, Ватсон...
|
Холмс, если я правильно понял, то чтото-гдето-както так:
Код:
with Sbutton1 do
begin
Name:= 'SButton' + inttostr(ButCount);
Caption := DirName;
Tag := ButCount;
..... но... - это в массиве хранятся правильные тэги, а у глобального экзепляра SButton тэг := 3 на какой из 4-ёх его клонов не нажми. И даже так (в OnClick):
Код:
Sbutton1:=But[Sbutton1.Tag];
DirName := Sbutton1.Caption;
ListBox1.Items.Add('SButton1.Tag:= '+inttostr(SButton1.Tag)); - результат := 0
З. Ы. И почему-то с prj6.rar и ыыы.rar проблема - оба сохраняются с размером := 28 899 байт??? и вирусов погонял (AVG [как впрочем и любой др. антивирус] ругается только на Н:\Дистрибутивы - пачку кряков и патчей пометил красным - всё трояны ему мерещатся, а системный С:\ кричит - чистый), и ребутнулся и всё равно... А нельзя ли их приаттачить на
ufo-007x@rambler.ru?
Заранее благодарен