Урок 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 красавчик!


  1. Dohorprok
    Dohorprok 11 months ago
    viagra generico eurofarma Inimeneidigh [url=https://xbuycheapcialiss.com/]cheap cialis online pharmacy[/url] diunny Order Pharmaceuticals Online India
  2. 1
    1 9 months ago
    пасас1и далбаеб
  3. Dohorprok
    Dohorprok 8 months ago
    [url=http://vslevitrav.com/]levitra vs viagra[/url]
  4. Dohorprok
    Dohorprok 7 months ago
    <a href="http://vsviagrav.com/">viagra[/url]</a>
  5. emehoOlla
    emehoOlla 6 months ago
    <a href="https://vslevitrav.com/">levitra for sale[/url]</a>
  6. emehoOlla
    emehoOlla 5 months ago
    <a href="https://vsamoxilv.com">[/url]</a>
  7. emehoOlla
    emehoOlla 4 months ago
    <a href="http://vscialisv.com/">generic cialis from india</a>
Отменить.