Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 9
Всего онлайн: 9
Зарегистрировано юзеров: 5977
Комментариев на сайте: 630
Новый юзер: deenama2



Последние комментарии
c
Theihpled прокомментировал "Урок 62 - Методы, наследование классов, операции с классами Delphi, (часть 4/6)":
Здравствуйте, Савельев Александр. У меня к вм небольшой вопрос по языку https://cloud.mail.ru/public/KFS1/dYUrFbaTU . Cпасибо за уроки.
Theihpled прокомментировал "Урок 54 - Потоки в Delphi, (часть 2/3)":
Кстати да. С потоками тоже ничего не вышло.



Мы в соцсетях
c
Delphi
Урок 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;
   Компилируем, соглашаемся и готово!

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


Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 15 Мая 2013
Просмотров: 6946

Урок 37 - Запись рабочего стола Урок 39 - Панель быстрого запуска (часть 1/2)

Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.



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