[angvelem]

Главное отличие использование метода CreateNew вместо Create. Конструктор

Код:

constructor TMyForm.CreateNew(AOwner: TComponent);
var
  NonClientMetrics: TNonClientMetrics;
begin
  inherited CreateNew(AOwner);
  NonClientMetrics.cbSize := sizeof(NonClientMetrics);
  if SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @NonClientMetrics, 0) then
    Font.Handle := CreateFontIndirect(NonClientMetrics.lfMessageFont);
end;

в принципе можно убрать.

[UFO 007]

Доброго всем времени суток!
Допустим, что имеем:

Код:

type
  TSoundButton = class(TButton)
.....

Procedure CreateButtons(DirName: string);
var
  Sbutton1 : TSoundButton;
begin
  Sbutton1:= TSoundButton.Create(Form1);//ñîçäà¸ì êíîïêó íà ôîðìå
  with Sbutton1 do
  begin
    Name:= 'SButton' + inttostr(ButCount);
    Height:= 25;
    Width:= 170;
    Left := 8;
    Top := Top_;
    Caption := DirName;
    Enabled:= true;
    Visible := true;
    parent:=form1.ScrollBox1;
    Sbutton1.OnClick := Form1.SButtonClick;
form1.ListBox1.Items.Add(Sbutton1.Name);
  end;
  Top_:= Top_ + 30;
  Inc (ButCount);
end;

procedure TForm1.SButtonClick(Sender: TObject);
....

... вследствие чего на форме создаётся столько кнопок, сколько папок на диске(подпапок в папке) например: Antivir, System, Util...
Так вот и сам вопрос: как мне из обработчика события Sbutton1.OnClick добраться(использовать) до св-ва Caption := DirName; RunTime созданной Sbutton?

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

[angvelem]

Создай свой топик, не какай в чужих!!!

[Страдалецъ]

Либо объявляейте массив кнопок глобально, либо через перебор компонентов родителя кнопок

[UFO 007]

Сообщение от Страдалецъ

Либо объявляейте массив кнопок глобально, либо через перебор компонентов родителя кнопок

и действительно, без массива - никак, т. к. поутру оказалось, что все кнопки (хоть и с разными .Caption) являются клонами одного экземпляра... Добрался я и до .Caption, и до .Name (стоило лишь декларацию Sbutton1 : TSoundButton; сделать не локальной [в процедуре], а глобальной [перед implementation]), но ListBox1 отображал: Sbutton3(Наме) и Util(Кэпшн) на какую кнопку не ткни.... Хорошо - объявляю

Код:

var
  Form1: TForm1;
  But: Array of TSoundButton;
  ....

локально объявлять бессмысленно - исчезнет по end процедуры, но

Код:

Procedure CreateButtons(DirName: string);
begin
  Sbutton1:= TSoundButton.Create(Form1);//ñîçäà¸ì êíîïêó íà ôîðìå
  with Sbutton1 do
  begin
    Name:= 'SButton' + inttostr(ButCount);
    .....
    parent:=form1.ScrollBox1;
    Sbutton1.OnClick := Form1.SButtonClick;
  But[ButCount]:= Sbutton1;
//form1.ListBox1.Items.Add(Sbutton1.Name);
  end;
  Top_:= Top_ + 30;
  Inc (ButCount);
end;

при компилировании вызывает ошибку EAccessViolation...

И в чём тут соль???

З. Ы. А если не секрет: как перебираются компоненты родителя кнопок?
спапибо

[UFO 007]

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

Создай свой топик, не какай в чужих!!!

... а на ЧайнаФонском форуме (на точно таком же движке) раздувание тем и веток не очень-то приветствуется.... "Прежде чем задать [может быть дилетантский] вопрос (начать новую тему в которую за пол-года 3-5 человек заглянут) - используй "Поиск" - мож и получишь ответ"... Сорри

[angvelem]

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

But[ButCount]:= Sbutton1;

А кто, SetLength будет объявлять?

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

...как перебираются компоненты родителя...

Цикл по ComponentCount

[angvelem]

Этот код:

Код:

Procedure CreateButtons(DirName: string);
begin
  Sbutton1:= TSoundButton.Create(Form1);//ñîçäà¸ì êíîïêó íà ôîðìå
  with Sbutton1 do
  begin
    Name:= 'SButton' + inttostr(ButCount);
    .....
    parent:=form1.ScrollBox1;
    Sbutton1.OnClick := Form1.SButtonClick;
  But[ButCount]:= Sbutton1;
//form1.ListBox1.Items.Add(Sbutton1.Name);
  end;
  Top_:= Top_ + 30;
  Inc (ButCount);
end;

фигня. Немного подправим:

Код:

...
  ButCount := 0; // где то на старте

Procedure CreateButtons(DirName: string);
begin
  SetLength(But, ButCount + 1);
  But[ButCount] := TSoundButton.Create(Form1);//ñîçäà¸ì êíîïêó íà ôîðìå
  with But[ButCount] do
  begin
    Name:= 'SButton' + inttostr(ButCount + 1);
    .....
    parent:=form1.ScrollBox1;
    Sbutton1.OnClick := Form1.SButtonClick;
//  But[ButCount]:= Sbutton1;
//form1.ListBox1.Items.Add(Sbutton1.Name);
  end;
  inc(Top_, 30);
  inc(ButCount);
end;

[ART]

Что-то я не догнал, что надо сделать...

Код:

procedure TForm1.SButtonClick(Sender: TObject);
begin
 Showmessage((Sender as TSoundButton).Caption);
end;

Так что ли?

[UFO 007]

Ребят, я конечно извиняюсь, но все мы {angvelem, сорри - Вас это не каксается} проглядели одну элементарную вещь: размер массива - [0..Max_Path] и EAccessViolation кончилась... А вот как теперь узнать "номер" нажатой кноки и через него, как через индекс, обратиться к массиву и вытащить нужные данные?

Спасибо

[UFO 007]

Сообщение от 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 существовали лишь в момент создания клона и дальнейшее их использование без хранения в массиве по-моему не представляется возможным, а вопрос по массиву - постом выше

[angvelem]

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

... А вот как теперь узнать "номер" нажатой кноки и через него, как через индекс, обратиться к массиву и вытащить нужные данные?

Элементарно, Ватсон. Для подобных дел Borland в своё время предусмотрел свойство TAG. Присваивай ему при создании кнопки значение ButCount.

[angvelem]

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

Ещё раз извиняюсь...

Вот пример:

[ART]

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

[angvelem]

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

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

Надеюсь, мы насочиняли то, что автору и нужно.