Menüleiste aktivieren [erledigt]

[Ewald]

Tag zusammen,
ich möchte nach etlichen Monaten noch einmal ein Problem aufgreifen, das ich hier gepostet habe und leider mit Express++ nicht lösen konnte.
Es geht um das Menü das ich mit Express++ erstelle
Beispiel:

Code: Alles auswählen

#include 'dcdialog.ch'
#include 'xbp.ch'
#include 'appevent.ch'
proc main

local getlist := {} , oclipphoto ,ofoto,obitmap,o1,omenubar
local oanlegen,osehen,odrucken,obuchen,ostammdaten
dc_icondefault(100)

@ 0,0   dcstatic TYPE XBPSTATIC_TYPE_RAISEDBOX size 30,05  ; //48,05 ;
        object ofoto ;
        PRESENTATION { { XBP_PP_FGCLR, GRA_CLR_DARKRED },{ XBP_PP_BGCLR, GRA_CLR_WHITE } }
        cbitmap = "logo.bmp"
        dcbitmap cbitmap  autoscale center  parent ofoto

DCMENUBAR oMenuBar 

DCSUBMENU oAnlegen    PROMPT "&Neu/Žndern" PARENT oMenuBar
DCSUBMENU oSehen      PROMPT "&Sehen"      PARENT oMenuBar
DCSUBMENU oDrucken    PROMPT "D&rucken"    PARENT oMenuBar
DCSUBMENU oBuchen     PROMPT "B&uchen"     PARENT oMenuBar
DCSUBMENU oStammdaten PROMPT "S&tammdaten" PARENT oMenuBar

DCMENUITEM "Bestellung" PARENT oanlegen ;
            ACTION {||runshell("","bestgui.exe",.t.)} 
DCMENUITEM "&Referenzteile" PARENT oanlegen ;
            ACTION {||lagerefe()} 
DCMENUITEM "Teile einer Bestellung neu disponieren" PARENT oanlegen ;
            ACTION {||runshell("","bestdisp.exe",.t.)} 
DCMENUITEM "&Land" PARENT ostammdaten ;
            ACTION {||land()} 
* Weitere Punkte ....

@ 06,00 dcpushbutton size 10,1 caption "Ende" ;
        action {||dc_readguievent(DCGUI_EXIT_OK,Getlist)}

DCREAD GUI TITLE 'Bestellabwicklung' FIT 

RETURN

..

Wenn dieses Menü aufgerufen wird muss man mit der Maus oder mit der "Alt" Taste die Menüleiste aktivieren, bevor man mit den Pfeiltasten weiter auswählen kann.
Dieses Aktivieren der Menüleiste soll beim Aufruf des Menüs automatisch passieren. So wie dc_setappfocus() - oder ein automatischer Druck auf die Alt Taste vor dem read ...
Ich komme da nicht weiter und würde mich über jeden Tip freuen.

Danke im Vorraus
Ewald

[Ewald]

So, es ist soweit, ich beantworte meine Fragen selbst

Code: Alles auswählen

DCREAD GUI ;
   TITLE 'Lagerabwicklung' ;
   FIT ;
   eval {||PostAppEvent(xbeP_Keyboard,xbeK_ALT,,omenubar)}

100mal habe ich eval... in den letzten Monaten ausprobiert, aber nie das Object (omenubar)
angegeben. So geht es auf jeden Fall.