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

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 9
Всего онлайн: 9
Зарегистрировано юзеров: 7652
Комментариев на сайте: 674
Новый юзер: Invеst in crурtоcurr



Последние комментарии
c
Eugeneidory прокомментировал "Урок 2 - Переменные и их типы":
http://fedorovkarb.ru - В слуховом аппарате Cyber Sonic используется инновационная запатентованная технология. Она сочетает в себе преимущества двух методов усиления нелинейного и линейного, что позволяет сохранить тонкие детали, делая звуки слышимыми, комфортными и ясными. В сочетании с цифровой обработкой звука в мощном современном процессоре, установленном в Cyber Sonic, технология BrainHearing обеспечивает лучшую разборчивость звуков с минимальными усилиями при прослушивании. Звуки получаются объемными и четкими, что позволяет лучше ориентироваться в пространстве с учетом расположения источников звука. - http://fedorovkarb.ru
rashpell прокомментировал "Урок 69 - Реестр Windows, (часть 2/2)":
Заказать seo поисковую оптимизацию сайта, Заказать услуги по продвижению сайта По всем возникшим вопросам Вы можете обратиться в скайп логин [b]pokras7777[/b]Раскрутка сайта под ключ .Так же собираем базы

Урок 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
Просмотров: 8740

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

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



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