Chamar formul�rio dentro da fun��o

05/02/2010

Boa tarde pessoal estou desenvolvendo uma aplica��o para exportar os dados do Paradox diretamente do firebird formatando os campos como eu desejar! At� a� tudo bem! Criei uma fun��o para exportar as cidades e quando n�o encontrar a cidade irei chamar um formulario onde o usu�rio ir� buscar a cidade que ele deseja. Aqui abaixo a fun��o: function TFrmExportar.BuscaCidade(fNome, fEstado: string ) : integer;
begin
Result := -1;
with Dm.QrConsulta do begin
     Close;
     SQL.Clear;
     SQL.Add('SELECT * FROM GER_CIDADES WHERE C_CIDADE = '+QuotedStr(RemoveAccent(fNome))+ 'AND C_UF = '+QuotedStr(RemoveAccent(fEstado)));
     Open;
     if RecordCount = 0 then begin
        FrmBuscaCidade:= TFrmBuscaCidade(Self);
        FrmBuscaCidade.ShowModal;
        FrmBuscaCidade.Free;
     end;
     if RecordCount = 1 then
        Result := FieldByName('C_CODCIDADE').AsInteger;
     if RecordCount > 1 then begin
        // Varias cidades pedir para o usuario selecionar
     end;
end;
end;
O problema � quando est� exportando a cidade qu ele n�o encontra a cidade desejada ele deveria abrir o formul�rio FrmBuscaCidade, mas ao inves disso est� gerando este erro aqui: First chance exception at $75B49617. Exception class EInvalidOperation with message 'Cannot make a visible window modal'. Process ExportParadoxFire.exe (112) Ser� que voc�s podem mim ajudar?

Thiago Santana

Curtir t�pico + 0

Responder

Posts

05/02/2010

Emerson Nascimento

     if RecordCount = 0 then begin
        FrmBuscaCidade:= TFrmBuscaCidade(Self);
        FrmBuscaCidade.Visible := False;
        FrmBuscaCidade.ShowModal;
        FrmBuscaCidade.Free;
     end;

Responder

Gostei + 0

05/02/2010

Marcos Iwazaki

Seria interessante usar try finally
E tbm eu libero os forms de uma outra maneira, mas isso � opcional.

if RecordCount = 0 then begin
FrmBuscaCidade:= TFrmBuscaCidade(Self);
try
FrmBuscaCidade.Visible := False;
FrmBuscaCidade.ShowModal;
finally
FrmBuscaCidade.release;
FrmBuscaCidade := nil;
end;//try
end;

Responder

Gostei + 0

05/02/2010

Thiago Santana

Socram poe um exemplo de como vc libera os teu forms a�! Porque do jeito em que vc mim passou no t�pico anterior n�o deu certo �!

Responder

Gostei + 0

05/02/2010

Alison Bissoli

Costuma dar esse erro quando alteramos incorretamente o tipo do formul�rio, por exemplo pra mdichild em aplica��o SDI.

Responder

Gostei + 0

05/02/2010

Marcos Iwazaki

Ent�o eu uso desse jeito que eu passei.

Qual erro que deu?
Cola o bloco do seu codigo ae.

flw.

Responder

Gostei + 0

05/02/2010

Thiago Santana

Consegui desse jeito aqui: if RecordCount = 0 then begin
        try
          FrmBuscaCidade:= TFrmBuscaCidade.Create(Self);
          FrmBuscaCidade.lblCidade.Caption := fNome;
          FrmBuscaCidade.ShowModal;
        finally
          Result := FrmBuscaCidade.CodCidadeFB;
          FrmBuscaCidade.Free;
        end;//try
No teu c�digo tava faltando o Create! Valeu pela ajuda...

Responder

Gostei + 0

06/02/2010

Emerson Nascimento

s� uma dica: evite o uso de recordcount. utilize somente se voc� quiser saber exatamente quantos registros h� na tabela (para preencher um contator, por exemplo).
no seu caso, use IsEmpty.

Responder

Gostei + 0

08/02/2010

Wilson Junior

Ao inv�s de usar FrmBuscaCidade.Free utilize FreeAndNil(FrmBuscaCidade). Assim ele libera da mem�ria e seta o FrmBuscaCidade como NIL.

Espero ter colaborado.

Responder

Gostei + 0