muy bien...
procedure TForm1.idTCPSocketServer(//parametros);
var
algo: string;
begin
algo:= AThread.Connection.ReadLn; // aqui leo la respuesta
// del cliente.
if algo = 'mostrar' then
begin
form1.hide;
form2.show; // aqui es donde no funciona.... se congela
// el form2, solo aparece el cuadrillo donde
// deberia estar.
end;
end;
pero si pongo el mismo codigo en un timer funciona...
procedure TForm1.idTCPSocketServer(//parametros);
var
algo: string;
begin
algo:= AThread.Connection.ReadLn; // aqui leo la respuesta
// del cliente.
if algo = 'mostrar' then
begin
timer1.enabled:= true;
end;
end;
cuando se ejecuta el evento onTimer que tiene Form2.Show; funciona perfectamente. Es decir que mientras este dentro del envento Execute del Server no puedo hacer nada con otros Forms.
__________________
Diego. Colombia es pasión.
|