Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
madjaxed
0 / 0 / 0
Регистрация: 08.07.2011
Сообщений: 15
1

Запуск форм в определенное время

29.10.2014, 17:37. Просмотров 899. Ответов 4
Метки нет (Все метки)

Добрые люди помогите, программа состоит из шести форм, первая форма всегда запущена,а как подходит определенное время на компе открыватся вторая или третья или если время запуска стоит одинаковая то запускаюся сразу две формы
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.10.2014, 17:37
Ответы с готовыми решениями:

Запуск файла в определенное время
procedure TForm1.Timer1Timer(Sender: TObject); var T:TDateTime; begin T:=time; ...

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

Таймер на запуск программы через определенное время и зациклить выполнение
Помогите советом как реализовать следующую задачу. В условно бесплатной программе через...

Запуск команды в определенное время
Здрасти всем!!! нужна помощь!!! Как сделать так чтобы приложение выполнила какую-нибудь команду в...

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

4
D1973
Модератор
4106 / 2952 / 1423
Регистрация: 21.01.2014
Сообщений: 12,630
Записей в блоге: 3
Завершенные тесты: 1
30.10.2014, 10:16 2
Вот пример
Приложение из 3-х форм: главная и 2 формы, вызываемые по времени.
На главной форме 2 таймера, компоненты для указания, через сколько минут запускать каждую форму и кнопка Старт
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
uses ..., DateUtils; //или System.DateUtils для RAD Studio
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    Edit1: TEdit;
    Label1: TLabel;
    UpDown1: TUpDown;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    UpDown2: TUpDown;
    Label4: TLabel;
    Button1: TButton;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Start2, Start3, Run2, Run3 : TTime;
 
implementation
 
{$R *.dfm}
 
uses Unit2, Unit3;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Run2 := incMinute(Now,UpDown1.Position);
 Run3 := incMinute(Now,UpDown2.Position);
 Timer1.Enabled := true;
 Timer2.Enabled := true;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label5.Caption := Format('Сейчас %s. Старт формы 2 в %s',[TimeToStr(Now),TimeToStr(Run2)]);
 if Now >= Run2
  then begin
        Form2.Show;
        Timer1.Enabled := false;
       end;
 Application.ProcessMessages;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
 Label6.Caption := Format('Сейчас %s. Старт формы 3 в %s',[TimeToStr(Now),TimeToStr(Run3)]);
 if Now >= Run3
  then begin
        Form3.Show;
        Timer2.Enabled := false;
       end;
 Application.ProcessMessages;
end;
1
Миниатюры
Запуск форм в определенное время  
Алексей1990
4 / 4 / 0
Регистрация: 13.04.2013
Сообщений: 65
30.10.2014, 10:32 3
а если нужно чтоб форма 2 открылась не через 1 минуту как написано, а когда будет время на компе 14:00 например
0
D1973
Модератор
4106 / 2952 / 1423
Регистрация: 21.01.2014
Сообщений: 12,630
Записей в блоге: 3
Завершенные тесты: 1
30.10.2014, 10:48 4
Тогда меняем связки Edit-UpDown на компонент DateTimePicker, выставляем свойство Kind в dtkTime и меняем код обработчика Button1Click на следующий:
Delphi
1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
 Run2 := DateTimePicker1.Time;
 Run3 := DateTimePicker2.Time;
 Timer1.Enabled := true;
 Timer2.Enabled := true;
end;
и все дела...
Вот так будет выглядеть
1
Миниатюры
Запуск форм в определенное время  
madjaxed
0 / 0 / 0
Регистрация: 08.07.2011
Сообщений: 15
30.10.2014, 16:29  [ТС] 5
Спасибо тема закрыта
0
30.10.2014, 16:29
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.10.2014, 16:29

Самозапуск через определенное время?
Прошу помочь мне заставить программу самозапускаться ч/з определенное время. Заранее благодарен,...

Напомнить о событии, назначенном в определенное время
нужна функция, которая позволяет напомнить о чем-либо в делфи, с помощью кнопки и edit

Выполнение действий по расписанию, в определенное время
как сделать что бы прога отслеживала время и если наступило к примеру 21:00 выполнила какие-то...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru