Как да стартирам процедура след отваряне на модален прозорец
Здравейте, хора!
Нужда от помощ.
Няма конзолно приложение.
Необходимо е да го накарате да се стартира от командния ред и веднага да започне да изпълнява посочените действия, след като се отвори основната форма.
Как да направя?
Струва ми се, че не е хубаво да вися на манипулатори като OnShow, OnActivate. На таймера също.
Кой знае как да го прави правилно?
Уф, съжалявам, модалът няма нищо общо с това.
Това се отнася до основната форма на заявлението.
Стартирайте втория поток, вероятно
И ако без поток?
Програмата просто експортира и извежда резултата в бележка и в зависимост от параметъра в командния ред се затваря (или не) след изпълнение.
Програмата е проста с няколко бутона и не би искала да се занимава с потока.
Лично аз сега изпращам събитието си до основния формуляр с помощта на Perform.
И в манипулатора програмно натискам необходимите бутони.
защо не и красива?
анализирайте командния ред в OnCreate и ако не е празен, изпълнете това, което искате, и ако е празно. (като цяло вашата програма, правете каквото искате:)
процедура TfrmMain.FormCreate (Изпращач: TObject);
започнете
< некая инициализация >
.
име на файл: = ";
.
ако (ParamCount> 0) тогава започнете
име на файл: = ParamStr (1);
doOpen;
край;
край;