[Newbie]

В общем дело обстоит так : Есть список форма в ней список неких предприятий
и надо сделать так чтобы при нажатии на название одной из предприятий в списке выходила подчинённая форма с документацией на предприятие.
или сделать так чтобы пользователь мог выбрать из списка любое предприятие и нажать на кнопку после чего выходила бы подчинённая форма. Вот. Помогите плз

[Aristarh Dark]

Показывай что наработал, где не получается.

[Phedor]

Сообщение от Newbie

В общем дело обстоит так : Есть список форма в ней список неких предприятий
и надо сделать так чтобы при нажатии на название одной из предприятий в списке выходила подчинённая форма с документацией на предприятие.
или сделать так чтобы пользователь мог выбрать из списка любое предприятие и нажать на кнопку после чего выходила бы подчинённая форма. Вот. Помогите плз

Код:

procedure Form1.ListBox1OnClick(Sender: TObject);
begin
  if ListBox.SelIndex<>-1 then
  begin
     if not Assigned(Form2) then
       Form2 := TForm2.Create(Self);
     Form2.ShowModal;
  end;
end;