Процедуры для динамических объектов

[Fruit]

Здраствуйте.
Есть небольшая проблема по поводу вызова процедуры для динамически созданного массива кнопок типа TBitbtn.
сам код:

procedure Tosnova.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=1 to 46 do
begin
cmdPict[i] := TBitBtn.Create(osnova);
cmdPict[i].Parent := osnova;
cmdPict[i].Visible:=false;
end;

Т.о. создаются на форме 46 кнопок.
Пользователь последовательно щелкает на любые три из них - и они исчезают.
Но не могу найти, как на такие динамически созданные массивы кнопок сделать вызов процедуры OnClick()..

[Altera]

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

Здраствуйте.
Есть небольшая проблема по поводу вызова процедуры для динамически созданного массива кнопок типа TBitbtn.
сам код:

Т.о. создаются на форме 46 кнопок.
Пользователь последовательно щелкает на любые три из них - и они исчезают.
Но не могу найти, как на такие динамически созданные массивы кнопок сделать вызов процедуры OnClick()..

Нажатую кнопку уничтожаешь так: tButton(sender).free;
Это внутри обработчика.

[Fruit]

уку.. а можно просто cmdPict.visible:=false..
мне нужно вызвать процедуру OnClick у этой кнопки..
что-нить вроде
procedure Tosnova.cmdPictClick() - только для массива динамически созданных кнопок

[Deight]

Я тоже на счет этого сейчас думаю, единственная мысль это создать класс от tbutton в классе обработать нажатие, а в массив добавлять этот класс.

[Манжосов Денис :)]

procedure Tosnova.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=1 to 46 do
begin
 cmdPict[i] := TBitBtn.Create(osnova);
 cmdPict[i].Parent := osnova;
 cmdPict[i].Visible:=false;
 cmdPict[i].OnClick := cmpPictClick;
end;

cmdPictClick - это процедура, объявляется где угодно...

procedure cmdPictClick(Sender: TObject);
begin
tButton(sender).free;
end;

Этот пример не пробовал, но надеюсь, что он будет работать...

[mutabor]

Не будет. Обработчик события должен быть методом класса. В остальном все правильно.

[Fruit]

Спасибо, все получилось))
Немного поэкспериментировали- и все заработало)

Немного не по теме, но как из кнопки типа TBitBtn извлечь адрес рисунка?
cmdPict[n[1]].Glyph.GetNamePath() ?

[Роман Радер]

Нет, не так. По-поему никак-оно загружает файл, а путь не сохраняет. Я вижу такое решение: если перед загрузкой загнать в какую-то переменную/массив строк.

[Fruit]

уку.. Спасибо, так и сделаем)
Тему можно закрыть