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

[Артём_2]

Эх, примерчик бы мне. Форма с кнопкой при нажатии на которую появляется ещё одна форма(созданная не в дизайнере, а как я писал выше). При закрытии которой появляется допустим showmessage какой нибудь.

northener, из главной формы нужна возможность открыть не ограниченное кол-во одинаковых форм.

[northener]

Ну и.
File -> New -> Form
Появляется новый модуль с новым классом TForm2 = class(TForm)
Кидаем на форму нужные компоненты. Пишем все необходимые обработчики событий и прочий нужный код. Затем удаляем вновь созданную форму из списка автосоздаваемых: Project -> OPtions-> Forms. Из списка Auto-create forms переносим в список Available forms, и всё!
Затем при необходимости в рантайме создаём 100500 форм класса TForm2:

procedure TForm1.sButton4Click(Sender: TObject);
var
Form: TForm2;
begin
  if sListView1.ItemIndex >= 0 then
    Begin
      Form := TForm2.Create(Application);
      Form.Caption:=program_name;
      Form.web.Navigate(url);
      Form.Show;
    End;
end;

[Артём_2]

Спасибо, не знал про это.