Cancelar ShowModal de um Form num OnCreate

Delphi

08/01/2004

É o seguinte .. no oncreate de um Form eu verifico um dado ... se nao existir esse dado quero q nao abra o form .. como faço ???

with qryPesquisa do
begin
Close;
SQL.Clear;
SQL.Add(´select * from funcionario_tipo_de_dependente´);
ExecSQL;
Open;
if RecordCount > 0 then
begin
tbTipoDependente.Open;
tbTipoDependente.Filtered:=False;
tbTipoDependente.Filter:=´codigo <> ´+qryPesquisa.FieldByName(´codigo´).Text+´´;
tbTipoDependente.Filtered:=True;
end
else
begin
ShowMessage(´Atenção,´+#13+´Você precisa definir qual tipo de dependente é o titular.´);


// Tou apanhando aqui ... nao quero q abra o form .. o q faço ?

{ fmFuncionario.Close;
Exit;
Abort;}




end;



Grato, Ítalo Rabello


Rabello

Rabello

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

08/01/2004

é só você fechar o form no OnCreate....


....
else 
begin 
 ShowMessage(´Atenção,´+#13+´Você precisa definir qual tipo de  dependente é o titular.´); 
frmFuncionario.Close;
end;




GOSTEI 0
POSTAR