DCGET und Tabstop [ERLEDIGT]

[Manfred]

Hi,

ich habe ein paar Eingabefelder, die im Quelltext hintereinander stehen und alle TABSTOP haben. Sie gehören aber unterschiedlichen Parents an. Wenn ich nun im letzten Feld des einen Parent stehe und dann mit Return beende, dann wird wieder das 1.Feld im gleichen Parent angesprungen und nicht das nächste im anderen Parent. Wie kann man das ändern? Mit TABGROUP habe ich es probiert, aber das klappte nicht. Es verhielt sich alles wie ohne TABGROUP. Den TAB über LostFocus setzen finde ich keine gute Lösung.

[Jan]

... und wenn Du den :killinputfocus() mit einem SetAppFocus() belegst?

Jan

[Wolfgang Ciriack]

Hallo Manfred,
versuch es mal mit DCGET OPTIONS NOSUPERVISE.

[Manfred]

Jan,

und was passiert dann, wenn der Dialog zwischendurch gewechselt wird? Dann springt der Cursor raus ins nächste Feld. das ist recht unpraktisch.

[Jan]

... das Du aber auch im Nachhinein noch Extrafallen einbauen mußt ...

Jan

[Manfred]

Es ist doch ein wenig umfangreicher, als ich gedacht hatte. Die Reihenfolge ist noch ganz anders abgelegt, deshalb klappt Wolfgangs Vorschlag nicht so wie erwartet. Es tauchen dann TABPAGES und PushButton dazwischen auf. Wie kann man denn genau in Erfahrung bringen, in welcher Reihenfolge denn alles abgelegt wurde? Geht das über die Childlist des Dialogfensters? Auf jeden Fall muß ich dann wohl daran irgendwas vorher genau beachten, wie ich es alles in welcher Reihenfolge verpacke.

Ach, wie habe ich den Textbildschirm geliebt.

[Wolfgang Ciriack]

Hallo Manfred,

Wie kann man denn genau in Erfahrung bringen, in welcher Reihenfolge denn alles abgelegt wurde?

Schau dir deinen Code an
Und nimm die Pushbuttons, etc. zwischen den einzelnen TABGROUP XBP_BEGIN_GROUP, XBP_WITHIN_GROUP, XBP_END_GROUP heraus.

[Manfred]

Hi Wolfgang

Hallo Manfred,

Schau dir deinen Code an
Und nimm die Pushbuttons, etc. zwischen den einzelnen TABGROUP XBP_BEGIN_GROUP, XBP_WITHIN_GROUP, XBP_END_GROUP heraus.

das hatte ich ja gemacht. Es sind alle Eingabefelder direkt hintereinander durchprogrammiert. Und mit TABGROUP_XXX arbeite ich auch nicht, bzw. hatte es bei den Eingabefeldern mal versucht, hat aber nichts gebracht.

[Bertram Hansen]

Hallo Manfred,

ich habe bei mir auch solche "Anordnungen" und es funktioniert bei mir mit einem kleinen Zusatztrick.

Versuche bitte mal im letzten Feld des jeweiligen Parents die [TAB]-Taste oder im ersten Feld des jeweiligen Parents die [SH]+[TAB]-Taste zu drücken. Erfolgt dann ein korrekter Feldwechsel?
Falls das einwandfrei funktioniert, dann könntest Du in Deinem Dialog einen HANDLERBLOCK hinzufügen, der diese Tasten simuliert.

Codeauszug:

Code: Alles auswählen

/* ------------------------- */
/* Allgemeine Handlerblock Function für DCREAD GUI 
*/              
FUNCTION HB_all_list ( nEvent, mp1, mp2, oXbp, oDlg, aGetList, aRef, lOk )
   LOCAL cRet := DCGUI_NONE, oOldApp
   
   IF nEvent = xbeP_Keyboard
      // Anfang der Tastaturmanipulation!
      // (Gruppeneffekt = mit Pfeil runter, Pfeil hoch oder Enter bleibt der Fokus innerhalb einer DCGROUP. Nur mit der TAB-Taste komme ich
      // in das Eingabefeld der nächsten Gruppe) 
      // Um den Gruppeneffekt zu deaktieren werden hier bei bestimmten Tastatureingaben andere Events gesendet.  
      IF mp1 == xbeK_RETURN
         IF oXbp != NIL .AND. UPPER(oXbp:ClassName()) != "DC_XBPPUSHBUTTON" 
            cRet := DCGUI_IGNORE
            PostAppEvent( xbeP_Keyboard, xbeK_TAB, ,oXbp ) 
         ENDIF   
         
      ELSEIF mp1 == xbeK_DOWN
         IF oXbp != NIL .AND. UPPER(oXbp:ClassName()) != "DC_XBPCOMBOBOX"       
            cRet := DCGUI_IGNORE
            PostAppEvent( xbeP_Keyboard, xbeK_TAB, ,oXbp ) 
         ENDIF   
         
      ELSEIF mp1 == xbeK_UP
         IF oXbp != NIL .AND. UPPER(oXbp:ClassName()) != "DC_XBPCOMBOBOX"       
            cRet := DCGUI_IGNORE
            PostAppEvent( xbeP_Keyboard, xbeK_SH_TAB, ,oXbp ) 
         ENDIF   
      // Ende der Tastaturmanipulation.  
         
      // Dialog beenden
      ELSEIF mp1 == xbeK_ALT_F4
         cRet := DCGUI_EXIT_ABORT                 
      ENDIF   
   ENDIF
   
RETURN cRet

Weiterhin benutzte ich noch die Eigenschaft ENTERTAB bei DCGETOPTION .

[Manfred]

Es sieht folgendermaßen aus:

1) Die Eingabefelder sind nacheinander programmiert im Code.
2) Die Eingabefelder befinden sich in verschiedenen Parents
3) Zwischendurch wechselt ein Eingabefeld in ein nächste Eingabefeld in Tabpages
4) und da passiert es, es wird zuerst das Tabpage angesprungen und beim nächsten Return das gewünschte Eingabefeld.

Ich habe alle Eingabefelder in eine TABGROUP gepackt, aber es hilft nicht.
Ich habe den TabPages den Tabstop weggenommen, es hilft nicht

[Bertram Hansen]

Hallo Manfred,

hoffentlich verstehe ich Dich jetzt richtig. Also Du möchtest gerne von dem letzten Eingabefeld einer Gruppe auf einer Tabpage in das erste Eingabefeld einer Gruppe der nächsten Tabpage mit Enter wechseln, ohne das das Tabpage zwischendurch den Focus bekommt

[Manfred]

Nein,

ich möchte durch die Eingabefelder springen mit RETURN, obwohl sie unterschiedliche Parents haben. Dabei kommen mir im Moment die TabPages dazwischen, welche den Parent für die anderen Eingabefelder liefern. Die ersten beiden Felder haben ein Static als Parent. Weiterhin hatte ich gerade beim letzten Eingabefeld, dass der Cursor statt auf einen Pushbutton springt, direkt die Tabpage wechselt. Alles sehr verwirrend. Wobei nur die erste Tabpage angesprungen wird und dann geht es dort mit dem ersten Eingabefeld weiter.

[Bertram Hansen]

[Martin Altmann]

Screenshot bitte!!!

[Manfred]

Moment,

ich fröddel gerade ein wenig an der Maske und den Feldern usw. herum. Ich habe eine Kleinigkeit schon entdeckt, die ich aus Unachtsamkeit gebaut habe. Dann werde ich mal weitersehen, was sich daraus entwickelt.

[Manfred]

Hm,

das ist ja interessant. Die Felder können alle mit RETURN abgeschlossen werden. Nur, sobald ich das letzte Eingabefeld mit Return abschliesse, springt der Cursor auf die nächste Tabpage. Wenn ich aber stattdessen mit TAB abschliesse, dann springt der Cursor, wie gewollt, auf den 1.Pushbutton.

[Wolfgang Ciriack]

Hallo Manfred,
ich habe das so gelöst, dass bei mir jede Tabpage ein GOTFOCUS {|| SetAppFocus(oFirstObjOnTabpage) } hat.

[Manfred]

Hi Wolfgang,

das würde aber nur einen Teil des Problems lösen, nämlich den, wenn die generell 1.Tabpage angesprungen wird. Wenn ich aber mit RETURN das letzte Eingabefeld in der jeweiligen Tabpage verlasse, dann wird statt des darauffolgenden Pushbutton, die nächste Tabpage aktiviert und das ist schon wieder ein ganz anderes Kaliber. Da will ich ja zu dem Zeitpunkt gar nicht hin.

[Paul]

Hallo Manfred,

gib beim letzten dcget folgenden keyblock hinzu

KEYBLOCK {|a,b,o|IIF(a==xbeK_ENTER, PostAppEvent( xbeP_Keyboard,xbeK_TAB,,o), NIL ) }

Gruss aus Wien

[Manfred]

Hi Paul,

daran habe ich auch schon gedacht, aber vom reinen Verständnis her sollte sollte es ja eigentlich immer mit der RETURN Taste klappen, wenn es vorher auch geklappt hat. Also die anderen Felder mit RETURN verlassen werden können und dann jeweils das nächste Feld angesprungen wird.

[Martin Altmann]

Manfred,
dann mach es doch bei jedem SLE dazu (oder in die Superklasse)

Viele Grüße,
Martin

[Manfred]

@Wolfgang,

komisch, das habe ich ich so eingebaut, aber es klappt nicht.

Code: Alles auswählen

@ nOben,nLinks DCTABPAGE oTabPage1;
                           CAPTION "Adresse";
                              EVAL {|o| AAdd(oDialogZusatz:aTabpages,o) };
                          GOTFOCUS {|| SetAppFocus(oLagerort:oName1) };
                              SIZE DCGUI_PARENTWIDTH - 10,DCGUI_PARENTHEIGHT - nOben;
                         TABHEIGHT nTabHoehe;
                          TABWIDTH nTabBreite

Das habe ich schon des öfteren beobachtet, das ein SetAppFocus() nicht klappt. Was kann dass denn bloß sein?

PS: Ich habe gerade festgestellt, dass mit der TAB Taste alles so klappt, wie ich es haben will, nur mit RETURN nicht. Irgendwas scheint Roger da verstrubbelt zu haben!?

[Wolfgang Ciriack]

Und deine DCGET OPTIONS ? Hast du da mal NOSUPERVISE oder ENTERTAB ausprobiert ?

[Manfred]

Au verflixt,

ich hatte nur NOSUPERVISE probiert und das klappte nicht. ENTERTAB scheint es jetzt zu bringen auf den ersten Blick.