[ART]

Навряд ли... заметил, что с каждым годом "новичкам" все сложнее объяснить, что они хотят. Пока не научатся писать по русски - в языки программирования лучше не лезть (особенно бесит нелогичность изложения и знаки пунктуации).

[UFO 007]

Сообщение от 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?

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

[UFO 007]

Пардон, ребят - приаттачивать ничего не надо: перезагрузился с D:\ и всё O'K

[UFO 007]

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

Скорее всего я опять не понял, но...

Зер Гроссе Данке Щён, мил человек - Дзенькуе Пан Добре: ыыыы.rar после некоторой огранки - то, что доктор прописал, но по-моему с архивами вы поторопились: одно дело "списать у соседа" и совсем другое - решить контрольную самому...
Однако - спасибо

[angvelem]

Сообщение от UFO 007

... одно дело "списать у соседа" ...

А там (в архивах) лишь идеи, производить "огранку" всё равно самому придётся.
P.S. мой проект был собран в Дельфи 2009, чтобы заработал в 7-ке, нужно в файле "project6.dpr" убрать строку Application.MainFormOnTaskbar := True;

[ART]

Эм... типа я плагиатчик? Что ты хотел этим сказать?

[angvelem]

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

Эм... типа я плагиатчик? Что ты хотел этим сказать?

Ммм, мне кажется это он про себя сказал.

[UFO 007]

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

Эм... типа я плагиатчик? Что ты хотел этим сказать?

Эм... насчёт пллагиата ниЧО не понял, но на всяк пожарный попытаюсь внести ясность: оба архива после компиляции работают вродь как одинаково(в разрезе моих надобностей), но в prj6.rar по-моему слегонца перемудрено, а вот при помощи одной строки из ыыыы.rar: DirName := (sender as TSoundButton).caption; - геморрой резко сошёл на ноль...
Вот только бы выяснить: кто такой этот sender (в контекстном меню англоязычной Винды есть пункт Send To - по-нашему "Отправить") - надо понимать отправитель системного события/сообщения (в данном случае TSoundButton как отправитель). Так-Не?

В любом случае : Гран-Мерси и спасибки огромное

З. Ы. Enschuldigen Sie bitte - Ich habe die Deutsche Sprache gelernen.

[angvelem]

Сообщение от UFO 007

... но в prj6.rar по-моему слегонца перемудрено ...

Извини, перестарался, в следующий раз дам только направление куда думать.

[Viajero]

Сообщение от UFO 007

Вот только бы выяснить: кто такой этот sender

ну ну sender - с этого надо было начинать ветку.

sender объект-источник события. При вызове события объект может послать в качестве параметра указатель на самого себя.
Так обычно делают все визуальные объекты-компоненты. Следовательно , сколько бы у нас однотипных объектов не было,
внутри события всегда есть ссылка на объект вызвавший событие, и не надо потом разыскивать объект через массивы, метки и т п.

Вообще то self и sender - одни из основных понятий объектно событийной системы дельфи (VCL). Странно об этом не знать.

[UFO 007]

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

... Странно об этом не знать.

Целиком и полностью с Вами согласен. После Spectrum-Basic'a и его же Assembler'a Delphi - машина выше всяких похвал и не мешало бы научиться (ну, жуть - как хоцца) управлять ею хотя бы наполовину. Вот токма работа электромонтажником не очень-то этому благоволит (мож всего 50-ю [а то и 100-ю] долю всех премудростей постиг).