Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Вниз

Куча кнопок 


ATLANTIDO   (2002-04-17 23:20) [0]

Ситуация такая - в процессе работы создется много конопок, функция которых почти однинакова - выдавать сообщение. Т.е. кнопка1 при нажатии выдает сообщение "1" , кнопка2 - "2" и т.д. Как мне это организовать ? Кнопки создаются прогрммно.
2) Как правильно освобождать память при динамическом создании обьектов ?
Создаю:

BitBtns[j]:=TBitBtn.Create(TabSheets[i-1]);
BitBtns[j].Left:=NextX; BitBtns[j].Top:=NextY;
BitBtns[j].Width:=100; BitBtns[j].Height:=100;......



Walker   (2002-04-18 04:58) [1]

1)
пишешь процедуру

procedure TForm1.Bitnt_X_Click(Sender: TObject);
var
st: string;
begin
if (Sender is TBitBtn) then
begin
st:="Кнопка "+IntToStr((Sender as TBitBtn).Tag);
Application.MessageBox(PChar(st), "", 0);
end;
end;

затем в цикле...

BitBtns[j].Tag:=j;
BitBtns[j].OnClick:=TForm1.Bitnt_X_Click;

2) если ты при создании указываешь родителя - Owner (а ты это указываешь - TabSheet), то можно не беспокоится, при уничтожении TabSheet сам удалит всё что на нём расположено (точнее своих детей)

но можно удалять и так:
BitBtns[j].Free;


P.S.: Можно обойтись и без массива BitBtns



ATLANTIDO   (2002-04-18 20:24) [2]

Оператор BitBtns[j].OnClick:=TForm1.Bitnt_X_Click;
приводит к ошибке "Incompatible types: "TNotifyEvent" and "Procedure"".



Poirot   (2002-04-18 20:56) [3]

у вас процедура должна быить определена в нутри класса TForm1 в разделе напр Паблик....
И всё работает как надо... тока-что проверил...



ATLANTIDO   (2002-04-18 21:01) [4]

Спасибо, помогло.



Poirot   (2002-04-18 21:03) [5]

Хаха.. я ошибку нашёл.... Вы зачем от класса её берёте...
:=TForm1.блаблабла
надо просто :=длабла



ATLANTIDO   (2002-04-18 21:22) [6]

а я так и сделал ! Спасибо!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.048 c
14-2645           Donal_Graeme          2002-03-19 11:11  2002.05.02  
программа для записи CD-R


3-2451            koks                  2002-04-10 11:15  2002.05.02  
QReport без DataSet - а


1-2536            55555                 2002-04-18 11:12  2002.05.02  
форма


14-2682           Ajax                  2002-03-23 11:08  2002.05.02  
Экспорт реестра


1-2538            LazorenkoX            2002-04-18 10:21  2002.05.02  
Рисование в консоли