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

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 2
Всего онлайн: 2
Зарегистрировано юзеров: 6358
Комментариев на сайте: 645
Новый юзер: Realtyvaday



Последние комментарии
c
Aqel прокомментировал "Урок 71 - Работа с сжатыми файлами":
GZip псевдоархив, на мой вопрос тоже не отвечают, как распаковать отдельные файлы/папки...
Pingitrus прокомментировал "Урок 71 - Работа с сжатыми файлами":
Есть еще кто нибудь живой на этом сайте, кто сможет помочь? Так то все работает, zip и rar распаковывает, но у меня есть файл dat который сжат GZip, почему то его не удается распаковать или так не получится так как этот файл не является архивом или является?)) пишет ошибку что неверная функция



Мы в соцсетях
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
Просмотров: 7672

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

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



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