checklistbox

[Ackii]

Всем привет!!! У меня в checklistboxe 15 формул!!! на каждую формулу открывается своя форма!!!

Как сделать так чтобы при выборе 5 из 15 формул открывались формы этих 5-ти формул по порядку????

Заранее спс!!!

[Noor]

можно увидеть как оно у вас организованно в виде кода ?

[Stilet]

В теории: Каждую форму нужно привязать к элементу твоего checklistbox. Есть у его Items свойство Object, которое позволяет хранить ссылку на объект, в том числе на форму. Далее каждой форме передается ItemIndex, указываюший на текущее состояние, а при закрытии формы циклом от этого числа до следующего чека пройти, получить указатель на очередную форму и открыть ее:

procedure TFormТакая-то.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 with form1.CheckListBox1 do begin ItemIndex:=ItemIndex+1;
  while (ItemIndex<Count)and(not Checked[ItemIndex]) do ItemIndex:=ItemIndex+1;
   if Items.Objects[ItemIndex] is TForm then
    TForm(Items.Objects[ItemIndex]).Show;
 end;
end;

[Ackii]

всем большое спасибо!!!