Урок 38 - Запись рабочего стола, интерфейс

   В этом уроке мы доделаем программу и придадим ей божественный вид.

   Сначала установим свойство Enabled у Timep1 на False>, таймер мы будем включать в ручную. Затем добавим компонент MainMenu с вкладки Standart. Теперь его нужно заполнить, кликаем 2 раза по компоненту и вылезет окно с выделенным пунктирной линией кусочком в левом верхнем углу, кликам на него и изменяем свойство Caption на "Файл" и видим что у нашей формы появилось меню, а дольше сами, как на рисунке:

   Примечание: чтобы сделать разделить нужно в свойство Caption написать "-" (знак - минус).

   Теперь кликаем 2 раза на элемент "Старт" и заполняем появившийся обработчик:

procedure TForm1.N4Click(Sender: TObject);
begin
  Timer1.Enabled:=true; //Включаем таймер
end;

   Ну и также для "Стоп":

procedure TForm1.N5Click(Sender: TObject);
begin
  Timer1.Enabled:=false; //Выключаем таймер
end;

   Для "Выход":

procedure TForm1.N7Click(Sender: TObject);
begin
  Close; // Выходим из программы
end;

   Можно скомпилировать и проверить как это работает.

   Добавим возможность изменения интервала таймера, для этого добавим новую форму и добавим на неё компоненты: Edit, Button, Label. Разместим вот так:



   Кликаем 2 раза на кнопке "Применить" и пишем код и компилируем:

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.Timer1.Interval:= StrToInt(Edit1.Text)*1000; // Задаем интервал таймеру (переводим секунды в миллисекунды)
  Close; // Закрываем вторую форму
end;

   Вылезет окошко подтверждения, соглашаемся и возвращаемся к MainMenu, там новую вкладку с названием "Опции" и 2 раза кликаем на ней:

procedure TForm1.N8Click(Sender: TObject);
begin
  Form2.Show; //Показываем вторую форму
end;

   Компилируем, соглашаемся и готово!

Удачи!
Встретимся в следующем уроке!

Добавил(а): klas	Дата: 2015-10-24
Admin красавчик!