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
d
2 matches
Mail list logo