Olá, Pelo que entendi, você quer sair totalmente da procedure, se nada for escolhido no combo sexo... O exit está certo... agora... No break ele executa o messagedlg, o setfocus e o exit? Se não e se for um combobox, você pode verificar assim também: if cmbsexo.ItemIndex=-1 then begin mensagem; setfocus; exit; end; Um abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, Márcio Theis <[EMAIL PROTECTED]> escreveu > > tire o "exit" abaixo da linha de comando CmbSexo.SetFocus; > pois vc já da um setfocus e depois um exit, acredito ser isto. > ----- Original Message ----- > From: frcunhahell > To: delphi-br@yahoogrupos.com.br > Sent: Thursday, January 13, 2005 8:09 PM > Subject: [delphi-br] Exit > > > > Tem um problema estranho por aki.... > > tem um trecho de codigo q eh o seguinte: > > if length(trim(CmbSexo.Text)) = 0 then > begin > MessageDlg('Digite o sexo', mtInformation,[mbok],0); > CmbSexo.SetFocus; > exit; > end; > > Caso deixa o campo sexo em branco o programa deveria para a execucao > do programa.... mas nao para e seguinte em diante. Mais estranh ainda > eh q c eu colocar um break no if ele funciona normalmente... > > Alguem sabe o q pode ser acontecendo? > > Valew!!!! > > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > Yahoo! Grupos, um serviço oferecido por: > > > > > > > > -------------------------------------------------------------------- ---------- > Links do Yahoo! Grupos > > a.. Para visitar o site do seu grupo na web, acesse: > http://br.groups.yahoo.com/group/delphi-br/ > > b.. Para sair deste grupo, envie um e-mail para: > [EMAIL PROTECTED] > > c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. > > > > [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html