Как создать событие у формы?

[Артём_2]

Доброго вечера всем.
Помогите мне с программой.

Создаю форму, добавляю на неё TWebBrowser, и хотелось бы что бы при закрытии данный формы выполнилось: Web.Navigate(url2); . Подскажите, как это реализовать?

procedure TForm1.sButton4Click(Sender: TObject);
var
Form: TForm;
web: TWebBrowser;
begin
  if sListView1.ItemIndex >= 0 then
    Begin
      Form := TForm.Create(Application);
      Form.Position := poDesktopCenter;
      Form.SetBounds(Left, Top, 880, 1000);
      Form.Caption:=program_name;
      Form.BorderIcons:=  BorderIcons - [biMaximize];
      Form.BorderIcons:=  BorderIcons - [biMinimize];
      web := TWebBrowser.CreateParented(Form.Handle);
      TWinControl(web).Parent:=form;
      Web.Height:= Form.Height;
      web.Align:=alClient;
      web.Navigate(url);
      Form.Show;
    End;
end;

[Человек_Борща]

События формы OnClose, OnCloseQuery, OnDestroy - гугли, 1, любое - на выбор.

[Артём_2]

Ну у обычной формы это понятно, выбрать её, и в object inspector'е вкладка events. Но как это сделать у формы которой нету?

[misher]

Но как это сделать у формы которой нету?

вы имеете ввиду отследить закрытие другого приложения? Если да, то вот

[northener]

Но как это сделать у формы которой нету?

Как это нету? Класс TForm есть. Его экземпляр вы создали. Так что всё есть.
Создание формы в рантайм ничем не отличается от создания любого другого компонента.

[northener]

Ну у обычной формы это понятно, выбрать её, и в object inspector'е вкладка events.

Ну и вообще. Почему бы вам не сконструировать эту форму заранее в дизайнере. Там и обработчики событий напишете. После вы ее можете создавать в рантайме уже готовую.

[Артём_2]

northener, к сожалению форма должна быть создана именно так. Я даже примерно не представляю как у таких форм добавлять события =(.
Попробовал добавить строку: Form.Close:=Web.Navigate(url2); - ругнулось на ошибку=(

[Toxa]

создай форму, у нее создай (через object inspector) нужные тебе события, посмотри что появилось и с какими входными параметрами, и точно такие же (по параметрам) создай процедуры для своей динамической формы и присваивай их, например

procedure MyCreateForm(Sender:tobject);
begin
end;
Form.OnCreate:=MyCreateForm;

[Аватар]

Ото MyCreateForm должно быть не просто процедурой, а методом какого-то объекта

[northener]

northener, к сожалению форма должна быть создана именно так.

Почему именно так?
Извините за назойливость, но такой способ всё-таки для Делфи не родной. В Делфи не зря есть дизайнер форм. Он создан именно для разработки пользовательских форм. В Делфи также есть репозиторий для хранения пользовательских форм с целью простого использования их в различных проектах. И получается что весь этот богатый инструментарий псу под хвост?