Problema na chamada do formulário

05/02/2010

1

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?
Responder

Posts

06/02/2010

Marco Salles

citação "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) "   O Problema parece estar nesta Linha   FrmBuscaCidade:= TFrmBuscaCidade(Self); ??????   talves seria assim    FrmBuscaCidade:= TFrmBuscaCidade.create(Self);   Ou  o mais correro     FrmBuscaCidade:= TFrmBuscaCidade.create(Self); try fazer o que tem que fazer finally FrmBuscaCidade.Release; end;      
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira