Delphi. Страница Dialogs. Васильев В.В - 6 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

6
ную переменную file_name: string для
хранения имени открытого файла
file_name:string;
8. Опишите перед заголовком implementation гло-
бальные переменные: Index – текущая позиция
поиска, ToFind - образец поиска, FindIn - текст, в
котором идет поиск
var Index:integer;
ToFind:string;
FindIn:string;
9. Напишите обработчик
события OnClose формы
procedure TMainform.FormClose(…);
begin
release
end;
10. Напишите обработ-
чик события OnCreate
формы
procedure TMainform.FormCreate(…);
begin
file_name:='Безымянный.txt';
caption:=file_name+' - Текстовый
редактор';
end;
11. Поместите на форму компонент Panel
Закладка Standard
12. Уберите текст c панели
Свойство Caption
13. Сделайте так, чтобы панель всегда
располагалась сверху
Выберите значение alTop свойст-
ва Panel1.Align
14. Поместите на форму компонент Memo
Закладка Standard
15. Сотрите надпись Memo1
Свойство Lines
16. Разверните компонент Memo на всю
область формы
Выберите значение alClient свой-
ства WindowsState
17. Поместите на форму компонент MainMenu
Закладка Standard
18. Сформируйте меню текстового ре-
дактора
Свойство Items
Названия пунктов меню вписываются в свойство Caption. После набо-
ра первого пункта нажимается Enter. Перед подчеркнутой буквой
ставится знак &. Для добавления разделителя между командами одно-
го пункта меню нужно ввести дефис в свойство Caption и нажать кла-
вишу ввода.
19. Обработайте пункт меню
Файл⏐Выход. Для этого
выберите в окне формы нуж-
ный пункт
procedure TMainform.N9Click(…);
begin
Close
end;
20. Запустите программу на исполнение. Попробуйте вве-
Run⏐Run
Рис.10. Ст
ру
кт
ур
а меню текстового
р
е
д
акто
р
а

Страницы