Использование циклов в Object Pascal. Семенов Н.М. - 6 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

6
Большинство свойств, описанных в таблице 1, Вы можете ввести непосредственно.
Выберите подходящий компонент, щёлкнув на нём в Дизайнере форм, затем введите
свойство в таблице Инспектора объектов.
Основное меню в этом плане несколько отличается от других компонентов. Вам
надо дважды щёлкнуть мышью на пиктограмме компонента основного меню в
Дизайнере форм. При этом включится Дизайнер меню - редактор свойств компонентов
MainMenu - в котором Вы сможете настроить этот компонент. Меню, которое Вам
предстоит настраивать, изначально будет пустым.
Введите значение свойства Caption для первого (и единственного в этом случае)
выбора меню - &File, после чего нажмите Enter. Снова нажмите на Enter. При этом
будет создано подменю, и курсор укажет на его первую пустую строку. Введите
&Open... и нажмите Enter.
Для введения разделяющей линии в подменю занесите в свойство Caption знак
“минус”. Нажмите Enter. Щёлкните на появившейся снизу прямоугольник. Закончите
создание подменю введением третьего поля с названием E&xit и закройте окно
Дизайнера меню.
В дополнение к пиктограмме основного меню, показываемой в процессе
разработки формы, в Вашей форме появится также действующая модель только что
созданного меню. Каждый раз, когда Вы будете выбирать определённую команду
меню, в окне редактора кода (Code Editor) будет появляться заготовка
соответствующего обработчика событий OnClick.
1.2 Ввод текста программы просмотра файлов
Для ввода текста программы просмотра файлов выполните следующие шаги:
1. Создайте обработчик события OnClick для команды Exit своего меню, выбрав
строку Exit в модели меню File в Дизайнере форм. Delphi ответит вызовом редактора
кода с заготовкой для программы метода TFrmWhile1.Exit1Click .
2. Вставьте в метод Exit1Click строку
Close;
Назначение метода Close - закрыть окно основной формы и завершить работу
программы.
3. Создайте обработчик события OnClick для команды Open своего меню,
выбрав строку Open в модели меню File в Дизайнере форм. Delphi ответит вызовом
редактора
кода с заготовкой для подпрограммы метода TFrmWhile1.Open1Click.
4. Введите текст метода Open1Click, показанный в листинге 1.
5. Не забудьте сохранить проект перед испытанием программы.
Листинг 1. Обработчик событий OnClick для пункта меню Open программы
просмотра файлов WHILE1.
___________________________________________________________________________
1: procedure TFrmWhile1.Open1Click(Sender: TObject);
2: var
3: AtextFile:System.Text;
4: TextLine:String;
5: begin
6: if OpenDialog1.Execute then begin
7: ListBox1.Clear;
8: Caption:='File Browser: ' + OpenDialog1.FileName;
9: System.Assign(ATextFile,OpenDialog1.FileName);

Страницы