Текущий архив: 2006.10.08;
Скачать: CL | DM;

Вниз

Динамический запуск формы   Найти похожие ветки 

← →
Id   (2006-09-16 14:36) [0]

Здраствуйте.
Нужно в зависимости от выбора той или иной строки в ListBox-e
запускать разные формы. Для каждой строки своя форма. Подскажите, как это сделать??

---

← →
Desdechado ©   (2006-09-16 15:29) [1]

Например, анализом содержимого строки или связанного с ней признака в Objects

---

← →
Id   (2006-09-18 09:23) [2]

Пробую вот так:

var
forma:TForm;
begin
  forma:=Form2;
  forma:=xxx.Create(form1);
  forma.ShowModal;
  forma.Free;
end;

Вместо "ххх", что нужно указать?

---

← →
Palladin ©   (2006-09-18 09:42) [3]

1.
в случае уже созданных форм добавляется в листбокс сам экземпляр формы

listbox.AddItem("form2",form2);
listbox.AddItem("form3",form3);
listbox.AddItem("form3",form3);
listbox.AddItem("form3",form3);


и позже

TForm(listbox.Items.Objects[listbox.ItemIndex]).ShowModal;

2.
либо в случае динамически создаваемых


listbox.AddItem("form2",TObject(Tform2));
listbox.AddItem("form3",TObject(Tform3));
listbox.AddItem("form4",TObject(Tform4));
listbox.AddItem("form5",TObject(Tform5));


и позже

With TFormClass(listbox.Items.Objects[listbox.ItemIndex]).Create(Nil) Do
Try
 ShowModal;
Finally
 Free;
End;

---

← →
Id   (2006-09-18 10:01) [4]

Спасибо за помощь, получилось.

---

Страницы: 1 вся ветка

Текущий архив: 2006.10.08;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.04 c