Реферат Курсовая Конспект
PQuestion(QuestionList[QuestionTreeView.Selected.Index]).Name - раздел Информатика, Собственные программы ScreenSaver и закрепим максимум из пройдённого материала на полезных в реальной жизни примерах Здесь Я Использую Контейнер Questionlist. В Квадратных Скобках У Него ...
|
Здесь я использую контейнер QuestionList. В квадратных скобках у него я указываю индекс элемента из контейнера, который мне нужен. Здесь я указываю индекс выделенного в дереве элемента QuestionTreeView.Selected.Index.
По нажатию кнопки «Удалить» ты должен написать следующий код:
procedure TQuestionResultForm.DeleteButtonClick(Sender: TObject); var index, i:Integer; begin if QuestionTreeView.Selected=nil then exit;
//Подтверждение удаления if Application.MessageBox(PChar('Вы действительно хотите удалить - '+ QuestionTreeView.Selected.Text), 'Внимание!!!', MB_OKCANCEL+MB_ICONINFORMATION)<>idOk then Exit;
//Сохраняю индекс выделенного элемента
index:=QuestionTreeView.Selected.Index;
//Удаляю выделенный элемент из дерева QuestionTreeView.Items.Delete(QuestionTreeView.Selected);
//Удаляю из контейнера QuestionList.Delete(Index); end;
На компакт диске, в директорииПримерыГлава 25Test2Редакторты можешь увидеть исходник уже написанного примера.
25.4. Сохранение и загрузка теста.
воя программа уже умеет создавать тесты, пора бы её научить и сохранять их и тем более загружать потом созданные проекты для редактирования. Я вынес кнопки открытия и сохранения проекта из дочернего окна в основное. Если
честно, то сохранение легче сделать внутри дочернего окна, а открытие в главном. Но я не пошёл простым путём, потому что хочу тебе показать, как работать с дочерними окнами. Итак, по нажатию кнопки «Сохранить» проект пишем следующий код:
procedure TTestEditorForm.SaveButtonClick(Sender: TObject);
– Конец работы –
Эта тема принадлежит разделу:
Глава Сплошная практика...
Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: PQuestion(QuestionList[QuestionTreeView.Selected.Index]).Name
Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:
Твитнуть |
Новости и инфо для студентов