Как запустить функцию через какое-то время после открытия формы?

@klynxe · Регистрация: 07.09.2012

Студворк — интернет-сервис помощи студентам

Как запустить функцию через какое-то время после открытия формы?
Как сделать, что бы после открытия формы начали выполняться мои функции, на событие onCreate сначала запускаются функции, а потом открывается окно, мне надо наоборот, подскажите как это сделать, может у формы или у самой проги есть событие OnLoad какое-нибудь или что-нибудь похожее?
Что бы сначала открылась форма с полностью выполненной функцией onCreate в том числе и закрывающей скобкой, а затем начала выполняться моя функция.
И второй вопрос как определить размер экрана пользователя?

@volvo · 28.09.2012, 20:31

События формы происходят в следующем порядке:
OnCreate (или конструктор класса формы) -> OnShow -> OnActivate-> OnPaint -> OnResize -> OnPaint (при запуске приложения)
OnCloseQuery -> OnClose-> OnDeactivate -> OnHide -> OnDestroy (деструктор класса формы) (при закрытии приложения)

Так что, тебе (по твоему описанию) подойдет OnShow.

@klynxe · 28.09.2012, 20:51 **[ТС]**

C++
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
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int formhiryna;
int formvysota;
void sneg();
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Screen->Cursors[1] =  LoadCursorFromFile("Cursor.cur");
Form1->Image1->Cursor = (TCursor)1;
Form1->WindowState=wsMaximized;
Form1->BorderStyle=bsNone;
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
formhiryna=Form1->Image1->Width;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
if(Key==27) Form1->Close();
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
void sneg()
{
formhiryna=Form1->Image1->Width;
}
 
void __fastcall TForm1::FormShow(TObject *Sender)
{
formhiryna=Form1->Image1->Width;
}
//---------------------------------------------------------------------------

в переменной formhiryna должна быть фактически ширина экрана, но туда сохраняется начальное значение размеров формы, а не после их изменения Form1->WindowState=wsMaximized;
Почему?
А если я добавляю кнопку и ею проверяю ширину, то все норм, правильное значение, а так выдает начальное значение ширины.

@volvo · 28.09.2012, 21:14

Я ж написал, что OnShow происходит перед OnResize. А при распахивании формы работает именно OnResize. Так что, при Show действительно получаешь размер еще не максимизированной формы.

@klynxe · 28.09.2012, 22:48 **[ТС]**

А как определить все ли компоненты формы загружены? Мне надо сделать так, что бы после загрузке всего начала действовать моя функция.

@volvo · 28.09.2012, 23:13

На момент вызова OnCreate форма и все компоненты на ней уже созданы и инициализированы (если, конечно, в OnCreate ты не создаешь еще что-нибудь динамически). Так что уже в OnCreate или в любом более позднем событии можешь запускать свою функцию.

@BRcr · 29.09.2012, 00:08

Сообщение от klynxe

И второй вопрос как определить размер экрана пользователя?

Screen->Width, Screen->Height, Screen->WorkAreaRect. Описания этих переменных можешь найти в справке: Vcl.Forms.TScreen Properties

@klynxe · 29.09.2012, 00:26 **[ТС]**

C++
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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int formhiryna;
int formvysota;
void sneg();
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Screen->Cursors[1] =  LoadCursorFromFile("Cursor.cur");
Form1->Image1->Cursor = (TCursor)1;
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
if(Key==27) Form1->Close();
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
void sneg()
{
while(1){
Sleep(300);
formhiryna=Form1->Image1->Width;
}
}
 
void __fastcall TForm1::FormResize(TObject *Sender)
{
sneg();
}
//---------------------------------------------------------------------------

При таком вызове функции у меня результат только висящая форма без компонентов, в моем случае без рисунка. просто зависает прога. Цикл конечно бесконечный, но почему он во время слипа висит, а не просто раз в 0.3с выполняет функцию? И почему нету рисунка, который прописан в настройках формы?

@BRcr · 29.09.2012, 00:30

Сообщение от klynxe

почему он во время слипа висит, а не просто раз в 0.3с выполняет функцию?

Потому что именно так работает функция Sleep(). Используй таймер.

cpp_developer · 29.09.2012, 08:50

klynxe, правила учат: одна тема - один вопрос.

@ROLpogo · 01.08.2016, 14:26

Стояла задача запускать загрузку данных в грид при запуске программы, когда прорисуются все контролы главной формы. Решил таким образом:

C++
1
2
3
4
5
6
7
8
9
10
void __fastcall TfmMain::FormPaint(TObject *Sender)
{
  static int iPaintCount = 1;
  if (iPaintCount < 4)
  {
    if (iPaintCount == 3)
      RefreshGrid();
    iPaintCount++;
  }
}

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@klynxe 12 / 12 / 4 Регистрация: 07.09.2012 Сообщений: 542

	Как запустить функцию через какое-то время после открытия формы? 28.09.2012, 20:21. Показов 4184. Ответов 10 Метки нет (Все метки) Как запустить функцию через какое-то время после открытия формы? Как сделать, что бы после открытия формы начали выполняться мои функции, на событие onCreate сначала запускаются функции, а потом открывается окно, мне надо наоборот, подскажите как это сделать, может у формы или у самой проги есть событие OnLoad какое-нибудь или что-нибудь похожее? Что бы сначала открылась форма с полностью выполненной функцией onCreate в том числе и закрывающей скобкой, а затем начала выполняться моя функция. И второй вопрос как определить размер экрана пользователя? 0

@volvo Супер-модератор 33403 / 21513 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	28.09.2012, 20:31
	События формы происходят в следующем порядке: OnCreate (или конструктор класса формы) -> OnShow -> OnActivate-> OnPaint -> OnResize -> OnPaint (при запуске приложения) OnCloseQuery -> OnClose-> OnDeactivate -> OnHide -> OnDestroy (деструктор класса формы) (при закрытии приложения) Так что, тебе (по твоему описанию) подойдет OnShow. 2

@volvo Супер-модератор 33403 / 21513 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	28.09.2012, 21:14
	Я ж написал, что OnShow происходит перед OnResize. А при распахивании формы работает именно OnResize. Так что, при Show действительно получаешь размер еще не максимизированной формы. 1

@klynxe 12 / 12 / 4 Регистрация: 07.09.2012 Сообщений: 542
	28.09.2012, 22:48 [ТС]
	А как определить все ли компоненты формы загружены? Мне надо сделать так, что бы после загрузке всего начала действовать моя функция. 0

@volvo Супер-модератор 33403 / 21513 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	28.09.2012, 23:13
	На момент вызова OnCreate форма и все компоненты на ней уже созданы и инициализированы (если, конечно, в OnCreate ты не создаешь еще что-нибудь динамически). Так что уже в OnCreate или в любом более позднем событии можешь запускать свою функцию. 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	29.09.2012, 08:50
	klynxe, правила учат: одна тема - один вопрос. 0