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.57 MB
Hora: 0.025 c
1-22002
BFG
2001-12-16 16:24
2002.01.08
Gráficos


1-22081
Andrewv
2001-12-18 14:14
2002.01.08
Como causar um erro no sistema.


4-22508
Gluka
2001-11-06 00:18
2002.01.08
É possível mudar o cursor sobre a janela de outra pessoa?


3-21976
Termik
2001-12-06 11:47
2002.01.08
Procedimentos armazenados, objetos dinâmicos


14-22395
Alienígena
2001-11-07 01:15
2002.01.08
Como uma bagunça difere da ordem?





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