Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Como interromper o lançamento do executável? Encontre agências semelhantes


Tupnyk   (2001-12-19 18:59) [0]

No projeto m / y application.initializ ... e application.run dependendo de alguma função e onde executá-la se os formulários ainda estão sendo gerados?



Юрий Зотов   (2001-12-19 19:21) [1]

Como é onde? Lá e execute onde for necessário - antes de Application.Run.

Clique no menu: Projeto | Ver fonte. O texto DPR é aberto e nele as canetas escrevem o código desejado no lugar certo. E para interromper o lançamento, você pode escrever Halt, ou usar se - por exemplo, assim:

Application.Initialize;
se <verificar condição> então
começar
Application.CreateForm (...);
Application.CreateForm (...);
...
Application.Run
final
final.



Дремучий   (2001-12-19 19:28) [2]

ou
....
Application.Initialize; if <verificação da condição> então Application.Terminate else Application.Run; fim.



Юрий Зотов   (2001-12-19 19:36) [3]

> Deep © (19.12.01 19: 28)

Application.Run - inicia o ciclo de busca da mensagem.
Application.Terminate - envia uma mensagem WM_QUIT.

Portanto, é extremamente interessante saber como o Application.Terminate pode funcionar se o Application.Run não for chamado?



Tupnyk   (2001-12-19 21:07) [4]

E se parte da condição deve ser obtida como resultado da execução de uma determinada função, então onde esta função deve ser executada?



y-soft   (2001-12-19 21:26) [5]

> Tupnyk
Você pode seguir o conselho de Yuri Zotov, mas
Se possível, é melhor verificar antes de chamar Application.Initialize, ou seja, na seção Initialization do primeiro módulo carregável e, se necessário, interromper a execução do aplicativo simplesmente chamando Halt. Ou seja crie um módulo especial para este propósito e coloque-o primeiro no arquivo USES .DPR



Юрий Зотов   (2001-12-19 21:35) [6]

> Tupnyk (19.12.01 21: 07)

Provavelmente ainda não "correr", mas "se acalmar". A resposta está em qualquer lugar, se apenas for "visível" do DPR. Ou seja, pelo menos no próprio DPR, pelo menos em qualquer módulo prescrito nele.




Tupnyk   (2001-12-19 22:19) [7]

Obrigado!



Дремучий   (2001-12-19 22:36) [8]

2 Yuri Zotov © (19.12.01 19: 36)
apenas o programa não terminará em Application.Terminate ;,
e por
final.

Você está certo, no entanto tal código de erro não produz...

programa Project1; usa Formulários Unit1 em "Unit1.pas" {Form1}; {$ R * .RES} começar Application.Initialize; Application.CreateForm (TForm1, Form1); Application.Terminate; //Application.Run; fim.



Юрий Зотов   (2001-12-19 22:43) [9]

> Dense © (19.12.01 22: 36)

> Este código de erro não produz ...

E por que ele daria um erro? Claro que isso não acontece. Mas não faz nada: se o Application.Terminate for simplesmente descartado, ele será exatamente o mesmo - concluir o final. O que foi mostrado no exemplo.





Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.58 MB
Hora: 0.026 c
3-21945
asafr
2001-12-04 18:11
2002.01.08
FastReport. frBand.Visible


1-22049
Greenrul
2001-12-17 18:34
2002.01.08
Как


1-22008
Jacaré
2001-12-17 11:46
2002.01.08
AJUDA !!!


4-22479
Vitas
2001-11-02 21:08
2002.01.08
Ajude a minimizar meu programa na bandeja do sistema


4-22504
Besa
2001-09-11 11:11
2002.01.08
WinExec neponyatka





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol