> Como consigo fazer essa proteção?
Use a idéia de semáforos. Ex:
Declare uma variável global no seu form/unit
var
EmExecucao: Boolean;
procedure TForm1.MeuCodigoCritico;
begin
if EmExecucao then
Exit;
EmExecucao := True;
try
meu codigo critico;
finally
EmExecucao := False;
end;
end;
Funciona sem problemas.
Sds.
Jackson Gomes
Tools&Comps - Controle de Usuários para Desenvolvedores Borland/CodeGear
Web Site: http://www.toolsandcomps.com
Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
e-mail: [EMAIL PROTECTED]
Fone: 27 3389 1138 - 8811 0324
----------------------------------------------------------------------------
Devhost - Webhost para desenvolvedores Borland
http://www.devhost.com.br
[EMAIL PROTECTED]
