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
