O programa trava por um tempo enquanto o loop n�o acaba !

Question

Fiz um programa que precisa executar alguns loops realmente demorados e quando ele executa esse loop, ele trava por alguns momentos at� acaba-lo. Depois de acabado, ele volta a funcionar normalmente.O...

Renato_sp · Answer

Amigo por ser um loop bem demora o seu sistema fica ocupado, tanto que vc pode fazer um teste clica em outra janela e quando vc voltar para o seu programa provavelmente vc vai ficar em branco ate terminar de fazer todo o processo
Para resolver o seu problema teria que usar thread... nao sei se vc sabe utilizar este poderoso recurso, ele � um pouco complexo de se explicar mas de uma lida sobre ele... voce teria que criar uma classe descendente do TThread algo como

type
MinhaThread = class(TThread)
private
{ Private declarations }
public
{ Public declarations }
end;

E fazer seus metodos de acordo com o que vc quer... depois so instanciar a sua classe MinhaThread que seu programa nao vai ficar mais ocupado....
Como eu disse � um pouco complexo te explicar pelo forum mas vai dando uma lida e posta alguma duvida mais direta que eu te ajudarei

A sua outra duvida seria essa a resposta
Form1.Cursor:= crHourGlass;
Isso deixaria o mouse com uma ampulheta dando a usuario a informacao que algo ta sendo processado...

Ate mais.. !!!!

Fjsx · Answer

N�o esque�a tamb�m do Application.ProcessMessages, coloque-o no final de cada loop, por exemplo assim:

while not...
begin

next;
[b:b2b2da62eb]Application.ProcessMessages;[/b:b2b2da62eb]
end;

Vc vai ver uma diferen�a.

Paulo_amorim · Answer

Ol�Como disse o fjsx, Application.ProcessMessages pode resolver no caso de voc� querer colocar um bot�o CancelarMesmo que n�o, creio que ele n�o ir� travar dessa maneiraPara mudar o cursor para ampulheta, existe a classe TCursor, que verifica exatamente qual o cursor da tela. Assim, pode-se alter�-lo...Cheque se alterar o seu Form.Cursor ele muda mesmo. Para saber qual valor setar, olhe o Help do DelphiEspero qe ajudeAt�+...

Danilo_zanaga · Answer

Ol�,Voc� pode usar a fun��o [b:879ed0caa1]CreateThread[/b:879ed0caa1] da API do Windows. Ela cria um processo em separado (Thread) para sua procedure. Declare a unit ShellAPI na cl�usula uses do seu form/arquivo.Para fazer isso, segue algumas dicas:a) Coloque os loops que voc� disse dentro de uma Procedureb) Declare tr�s vari�veis como globais na Unit que estiver trabalhandovar  thr : THandle;  thrID,thrExitCode : DWORD;  thrAddr: Pointer;thr: � a threadthrID: ID da threadthrExitCode: C�digo de sa�da da threadthrAddr: Ponteiro com o endere�o da threadb) Ao clicar o bot�o que inicia o loop, digite o c�digo:  IsMultiThread:=True;  thr:= 0;  thrAddr:=@;  thr := CreateThread(nil, 0, thrAddr, nil, 0, thrID);  if (thr = 0) then ShowMessage(�Thread n�o criada�)  else GetExitCodeThread(thr,thrExitCode); / Se n�o der erro, pega o c�digo de saida da threadc) Ao final de sua procedure digite:  ExitThread(thrExitCode); / Interrompe a threadNo caso de voc� querer terminar a thread no meio, dever� digitar o c�digo acima no evento OnClick do bot�o de cancelamento.Espero ter ajudado....

Danilo_zanaga · Answer

N�o existe op��o de editar/excluir a minha mensagem?...

Danilo_zanaga · Answer

N�o sei o que acontece aqui, tentei colocar �� e logo depois que postei a mensagem, sumiu tudoS� complementando:thrAddr:=@��;...

Rp · Answer

Pessoal ! Valeu pela ajuda !...

F�rum O programa trava por um tempo enquanto o loop n�o acaba ! #261806