Ajuda com ShowModal

[Claudio Cesar De Oliveira]

Olá pessoal, bom vou ser breve. Preciso de uma ajuda de vocês. Tenho um código que busca o endereço da pessoa a partir do CEP. Como ele é feito via POST com idHTTP as vezes demora um pouco pra retornar o resultado, então gostaria de colocar um pequeno form com um Label: Buscando CEP..
E quando os edits forem preenchidos esse form desaparece de novo.
Eis o código que busca o CEP.
 
 

procedure TfrmNovo.Button1Click(Sender: TObject);varConsulta: String;Resposta: TStringStream;beginif (Edit1.Text = '') or (Length(Edit1.Text) < 8) or (Length(Edit1.Text) > 8) thenbeginApplication.MessageBox('CEP nulo ou inválido.', 'Erro - Aviso do Sistema', mb_iconwarning+mb_ok);exit;end;Resposta := TStringStream.Create('');TSConsulta := TStringList.Create;IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV2';TSConsulta.Values['&cep'] := Edit1.Text;TSConsulta.Values['&formato'] := 'xml';//TSConsulta.Values['&formato'] := 'query_string';IdHTTP1.Post('http://cep.republicavirtual.com.br/web_cep.php?'TSConsulta, Resposta);XMLBuscaCEP.Active := True;XMLBuscaCEP.Encoding := 'iso-8859-1';XMLBuscaCEP.LoadFromStream(Resposta);//RichEdit1.Lines.Add(Resposta.DataString);Edit2.Text := XMLBuscaCEP.DocumentElement.ChildNodes['tipo_logradouro'].NodeValue+' '+XMLBuscaCEP.DocumentElement.ChildNodes['logradouro'].NodeValue;Edit3.Text := XMLBuscaCEP.DocumentElement.ChildNodes['bairro'].NodeValue;Edit4.Text := XMLBuscaCEP.DocumentElement.ChildNodes['cidade'].NodeValue;Edit5.Text := XMLBuscaCEP.DocumentElement.ChildNodes['uf'].NodeValue;TSConsulta.Free;Resposta.Free;XMLBuscaCEP.Active := False;Edit13.SetFocus;end;

[New Nerd]

Boa tarde!

 

Após criar o segundo Form acrescente o nome da unit dentro da Uses do form principal, depois é só chamar a janela usando.

 

Form2.Show; //Exibe o form.
Form2.ShowModal; //Exibe o form exclusivamente, só é possível mexer nele até que seja fechado.

Form2.Close; //Fecha a janela.

 

Exemplo, Uses do form principal:

uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, unit2; //unit2 pertencente ao segundo form.

Espero que isto ajude!

 

Flws