Шаг 3 - Маленький текстовый редактор [TMainMenu, TMemo, TOpenDialog, TSaveDialog]

Теперь мы для примера попробуем сделать простой текстовой редактор, с меню Файл и ... без ничего! Минимализм.

Сначала пустую форму, как обычно. Затем перетащите компоненты TMainMenu gif/3_1.gif (131 b) и TMemo gif/3_2.gif (127 b) на форму. Также с вкладки Dialogs возьмите компоненты TOpenDialog gif/3_3.gif (193 b) и TSaveDialog gif/3_4.gif (209 b).

Отредактируем меню. Для этого нужно два раза щелкнуть по TMainMenu. Откроется Дизайнер меню. Введите названия пунктов в свойство Caption. Жмите Enter для создания нового пункта. Чтобы создать горячую клавишу, в Caption перед ней поставьте символ "&". Чтобы создать подменю, жмите Ctrl+"->".

Отредактируйте меню по образцу:

gif/3_5.gif (2629 b)

Для задания обработчиков событий нужно, как обычно, два раза щелкнуть по пункту меню.

Лучше задать понятные имена - Open, Save и Exit. Для TMemo установите свойство Align в alClient, а ScrollBars в ssBoth.

Код должен быть такой:

void __fastcall TForm1::ExitClick(TObject *Sender)
{
	Close();
}
//-----------------------------------------------------------------

void __fastcall TForm1::OpenClick(TObject *Sender)
{
	if (OpenDialog1->Execute())
		Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
}
//-----------------------------------------------------------------

void __fastcall TForm1::SaveClick(TObject *Sender)
{
	if (SaveDialog1->Execute())
		Memo1->Lines->SaveToFile(SaveDialog1->FileName);
}

Тут тоже вроде все понятно - методы LoadFromFile() и SaveToFile() делают, что надо. Кстати, более подробную информацию о классах можно получить в Help'е.


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Аванесов Самвел - 25.10.2001