var
i:integer;
{new:array[1..15]of TForm;
obj:array[1..15]of TComboBox;
myedit:array[1..15] of TEdit;
myCombo:TComboBox;
myGroup:TGroupBox; }
n:integer;
s:array[1..7]of String;
begin
new[1]:=TForm.Create(self);
new[1].Visible:=true;
new[1].Top:=300;
new[1].Left:=300;
new[1].Name:='Form3';
new[1].Height:=275;
new[1].Width:=451;
Программное создание события в созданной форме.
Программно создаю форму, нужно привязать к ней обработчик на закрытие(OnClose), как это сделать?
Вот как создаю форму:
В итоге хочу добиться того, что бы при закрытии формы вызывался её деструктор.
Вот как создаю форму:
Код:
В итоге хочу добиться того, что бы при закрытии формы вызывался её деструктор.
Часть проблемы решил, тем что просто переадресовал событие
теперь проблема в том, что при вызове
Выдает ошибку.
Код:
new[1].OnClick:=Button2.OnClick;
теперь проблема в том, что при вызове
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
new[1].Destroy;
end;
begin
new[1].Destroy;
end;
Выдает ошибку.
Цитата:
TCloseAction = (caNone, caHide, caFree, caMinimize);
При чем тут OnClick? Код обработчика показать надо было...