Items в listbox

[Афанасий[vedma]]

Здравствуйте) у меня такой вопрос: на форме у меня Listbox с списком(items) и я хочу чтоб по двойному щелчку (dbClick) открывалась новая форма...

listbox1.items.create

кажется так да?

[ZuBy]

новая форма это как понять?
форма которая заранее создана или именно полное создание?

[Jaguar83]

Если формы объявлены в модулях, но автоматически НЕ создаются при запуске приложения (отсутствуют в Project->Options->Forms-> Auto-Create Forms)

В главном модуле, где нах-ся ListBox, написать

unit Unit1;
...

implementation

uses Unit2, Unit3, Unit4;

var
   arrForm: array [0..2] of TFormClass = (TForm2, TForm3, TForm4);

{$R *.dfm}

procedure TForm1.ListBox1DblClick(Sender: TObject);
var Form: TForm;
begin
Application.CreateForm(arrForm[ListBox1.ItemIndex], Form);
Form.ShowModal;
Form.Free;
end;

[Афанасий[vedma]]

моя задумка: создать прогу, в listbox'е имена 21 учеников (т.е. в listboxe 21 item'ов) и нажимая на каждый item появляется окно или что-то...ну короче когда нажимаешь на каждого ученика вылазит их характеристика и оценки. Помогите

[Jaguar83]

Тогда тебе надо создать базу данных, где будет храниться информация об учениках.
При клике в листбоксе будет вызываться одна-единственная форма с размещенными на ней компонентами (Edit, Memo, ComboBox и пр.) и эти компоненты будут заполняться информацией в зависимости от выбранного ученика.

[lux16]

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

Тогда тебе надо создать базу данных, где будет храниться информация об учениках.
При клике в листбоксе будет вызываться одна-единственная форма с размещенными на ней компонентами (Edit, Memo, ComboBox и пр.) и эти компоненты будут заполняться информацией в зависимости от выбранного ученика.

Да, да. А то блин понаписывают, и черт разберешь чего мы хотим или колобка, или яблоко

[Афанасий[vedma]]

listbox1.items.add(edit1.text, edit2.text <=== edit2.text не работает, говорит мол что ошибка

[lux16]

Хм, в параметре метода Add() можно указывать только один параметр. Делай так:

ListBox1.Items.Add(Edit1.Text);
ListBox1.Items.Add(Edit2.Text);

и так далее. Можно конечно и так:

ListBox1.Items.Add(Edit1.Text + #13#10 + Edit2.Text);

Но я думаю, что следующий вариант будет лучше всего:

with ListBox1.Items do
 begin
  Add(Edit1.Text);
  Add(Edit2.Text);
  Add(Edit3.Text);
 end;

Ну, а если компонентов TEdit очень много, то лучше сделай так:

var
  i:  Byte;
  item: TComponent;
begin
  Try
    For i := 0 To ComponentCount - 1 Do
      Begin
        item := Components[i];
        If ((item Is TEdit)) Then
          Begin
            Memo1.Lines.Add((item As TEdit).Text);
          End;
      End;
  Except
  End;
end;

[Афанасий[vedma]]

ты прав)) по одиночке удобнее и понятнее...) хэх) у меня на форме 11 edit и 1 memo))) буду по одиночке тыкать код...

[lux16]

Сообщение от Афанасий[vedma]

ты прав)) по одиночке удобнее и понятнее...) хэх) у меня на форме 11 edit и 1 memo))) буду по одиночке тыкать код...

Ну смотри, я думаю, что циклу будет лучше, так как если добавишь еще один TEdit, то тебе не надо будет править код