Fórum Interromper Processamento da Aplicação - urgente #152809
08/04/2003
0
esta e a procedure de um botão.
procedure TFrSelCrac.SpeedButton5Click(Sender: TObject);
vsai : boolean;
begin
vsai := false; // pode ser variavel gobal
while not Dm.TbInativo.EOF do
begin
...... linhas normais da aplicação
.......
Application.ProcessMessages;
if vsai then
if MessageDlg(´Confirma cancelar este processo ´,
mtconfirmation,[mbYes,mbNo],0) = mrYes then
break
else
vsai := false;
End;
..... linhas normais da aplicação
.....
end;
procedure TFrSelCrac.SpeedButton5Click(Sender: TObject);
vsai : boolean;
begin
vsai := false; // pode ser variavel gobal
while not Dm.TbInativo.EOF do
begin
...... linhas normais da aplicação
.......
Application.ProcessMessages;
if vsai then
if MessageDlg(´Confirma cancelar este processo ´,
mtconfirmation,[mbYes,mbNo],0) = mrYes then
break
else
vsai := false;
End;
..... linhas normais da aplicação
.....
end;
Anonymous
Curtir tópico
+ 0
Responder
Posts
27/07/2005
Lorde_morte.
Eu tb estou tendo um problema parecido.
Eu quero que a partir de uma condicional o programa interrompa a execução, com interrupçoes semelhantes a erros, mas sem que eles tenham ocorrido. Com exemplo fica melhor de entender.
EX:
procedure Montar;**
begin
......
teste1
....... ***
end;
procedure teste1;
begin
.........
if x=1 then
begin
Message(´Voce Nao pode isso´);
Interromper; *
end;
.........***
end;
*Mas esse interromer deve parar o funcionamento de todo o condigo seguinte e nao so os que estao dentro dele(teste1).
**Nao posso usar uma variavel glabal pq este metodo esta em um framework. :cry:
*** Esta linha nao deve ser executada caso o interronper seja executado.
Desde obrigado pela atenção.
t+
Eu quero que a partir de uma condicional o programa interrompa a execução, com interrupçoes semelhantes a erros, mas sem que eles tenham ocorrido. Com exemplo fica melhor de entender.
EX:
procedure Montar;**
begin
......
teste1
....... ***
end;
procedure teste1;
begin
.........
if x=1 then
begin
Message(´Voce Nao pode isso´);
Interromper; *
end;
.........***
end;
*Mas esse interromer deve parar o funcionamento de todo o condigo seguinte e nao so os que estao dentro dele(teste1).
**Nao posso usar uma variavel glabal pq este metodo esta em um framework. :cry:
*** Esta linha nao deve ser executada caso o interronper seja executado.
Desde obrigado pela atenção.
t+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)