lost focus in a form

Article View: borland.public.vdbase.forms

Article #113

Back to borland.public.vdbase.forms Previous Next

#113

From: Fabrice VANLOOT
Date: Tue, 16 Mar 1999 00:00

35 lines
2009 bytes

Hello !
I lose the focus in my form when I navigate into a tabbox object.
My form contains seven pages and a table containing 200 fields.
Here is a part of code in my procedure :
Procedure ONGLET1_OnSelChange
   form.RefreshAlways = .F.
   form.PageNo = this.CurSel+1
   do case
        case form.Onglet1.CurSel = 1 .or. form.Onglet1.CurSel = 2 .or.
form.Onglet1.CurSel = 3
                 if gesopaf->refrepre = "R" .and. ltrim(rtrim(gesopaf->c06))
<> "REPRENEURS"
                    InformationMessage(FormatStr("le Dossier N� " +
gesopaf->ref + " est un repreneur "),;
                                "Info")
                    form.Onglet1.CurSel = Jeviensde
                   Jeviensde = form.Onglet1.CurSel
                   return
               endif
         case form.Onglet1.CurSel = 5 .or. form.Onglet1.CurSel = 6   &&&
Page 6 ou Page 7
                  if gesopaf->refrepre <> "R"
                     InformationMessage(FormatStr("le Dossier N� " +
gesopaf->ref + " n'est pas un repreneur "),;
                                    "Info")
                     form.Onglet1.CurSel = Jeviensde
                    Jeviensde = form.Onglet1.CurSel
                    return
               endif
   endcase
   Jeviensde = form.Onglet1.CurSel
When I click on the tabbox, the choice is good but the page doesn't change
and I lost the focus into the tabbox and any objects in my form.
Anybody can help me ?
Thank you.

Technical Details

Message-ID: <7cllk7$3t214@forums.borland.com>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 15bdfb,7de170b52718953e,start
X-Google-Attributes: gid15bdfb,public
From: "Fabrice VANLOOT" <fvanloot@crc-conso.com>
Subject: lost focus in a form
Date: 1999/03/16
Message-ID: <7cllk7$3t214@forums.borland.com>
X-Deja-AN: 455611099
Content-Transfer-Encoding: 8bit
Content-Type: text/plain; charset="iso-8859-1"
X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3
Organization: Another Netscape Collabra Server User
Mime-Version: 1.0
Newsgroups: borland.public.vdbase.forms