Программное создание событий для кнопок

@darkAngel · Регистрация: 11.03.2009

Author24 — интернет-сервис помощи студентам

есть главная форма, есть дочерняя.
При запуске дочерней создаются программно кнопки и им приписываются события.
При закрытие дочерней формы кнопки удаляются, так что можно создавать и вновь удалять без ошибок.
Проблема в том, что если в процедуре кнопок приписать вызов закрытия формы Form.Close, (т.е. нажал на кнопку и дочерняя закрылась форма), то после этого при следующем запуске дочерней формы вылезает ошибка чтения памяти.
Но главное если просто закрывать форму через крестик, то всё ок.

Вот создание кнопок:

Pascal

procedure TForm2.CrateButton(BName, BCaption : String; l1 : integer);
begin
    Buttons[l1] := TButton.Create(Form2);
    Buttons[l1].Parent := Form2;
    Buttons[l1].Left:=100*l1 + 10;
    Buttons[l1].Top := 135;
    Buttons[l1].Visible := true;
    Buttons[l1].Name := 'Button'+ BName;
    Buttons[l1].Caption := BCaption;
    Buttons[l1].OnClick := bOK;                //А здесь приписываем события для кнопок
end;

Процедура для события выглядит элементарно:

Pascal

procedure TForm2.bOK(Sender: TObject);
begin
  with (Sender as TButton) do
  if Name = 'ButtonOK' then Form1.Label1.Caption := 'ÎÊ'
  else if Name = 'ButtonCancel' then Form1.Label1.Caption := 'Îòìåíà';
 // и т.д.
      
   Form2.Close;                //А здесь закрываем дочернюю форму после нажатии кнопки
end;

Закрытие формы происходит так:

Delphi

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   DeleteButton(l-1);                     //Процедура удаления кнопок
end;

//Собственно сама процедура удаления:

Delphi

procedure DeleteButton(l : integer);
          var i : integer;
begin
   for i := 0 to l do
   begin
       Buttons[i].Destroy;
   end;
end;

@kukuruku310 · 07.04.2011, 17:48

Вы пытаетесь уничтожить объект из фактически его же свойства(метода). Странно только, что исключение не выскакивает сразу, а только при следующем обращении к форме.
Используйте вместо непосредственного вызова DeleteButtons отложенную обработку, скажем, послав форме сообщение WM_CLOSE

@turboq · 07.04.2011, 18:21

В делфи 2007 это работает, хотя может лучше в место close использовать hide;

Добавлено через 1 минуту
А лучше выложи исходник а то кто знает может не там ищешь

03.01.2012, 15:56

используй функцию freeandnil(<здесь указываешь имя объекта для удаления>)

@kukuruku310 306 / 187 / 26 Регистрация: 14.02.2010 Сообщений: 544
	07.04.2011, 17:48	2
	Вы пытаетесь уничтожить объект из фактически его же свойства(метода). Странно только, что исключение не выскакивает сразу, а только при следующем обращении к форме. Используйте вместо непосредственного вызова DeleteButtons отложенную обработку, скажем, послав форме сообщение WM_CLOSE 1

@turboq 160 / 159 / 13 Регистрация: 14.01.2010 Сообщений: 1,497
	07.04.2011, 18:21	3
	В делфи 2007 это работает, хотя может лучше в место close использовать hide; Добавлено через 1 минуту А лучше выложи исходник а то кто знает может не там ищешь 0

Noоb
	03.01.2012, 15:56	4
	используй функцию freeandnil(<здесь указываешь имя объекта для удаления>)