Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.02;
Скачать: CL | DM;

Вниз

Куча кнопок   Найти похожие ветки 

 
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]

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



Страницы: 1 вся ветка

Текущий архив: 2002.05.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.006 c
14-2658
Феликс
2002-03-26 19:17
2002.05.02
Teleport Pro умеет вытаскивать файлы с опр. расширением (из сети). Но как?


1-2527
SQ
2002-04-21 09:55
2002.05.02
Защита файла


1-2535
Delph
2002-04-18 16:54
2002.05.02
Вопрос про событие OnClick и OnDblClick


14-2660
aus
2002-03-26 22:19
2002.05.02
Редактирование анкеты


6-2642
cypher
2002-02-18 18:19
2002.05.02
Сетевые диски