ich hab da mal wieder ne Frage und ein Problem.
Ich habe hier einen XbpDialog (PARENT ist AppDesktop - OWNER ist XbpCrt ) welches den Fokus nicht annimmt.
Code: Alles auswählen
oDlg := XbpDialog():new( SetAppWindow():setParent(), SetAppWindow(), {Mpos_x, Mpos_y}, {600,275}, , .F.)
oDlg:taskList := .T.
oDlg:minButton:= .T.
oDlg:maxButton:= .F.
oDlg:border := XBPDLG_RAISEDBORDERTHIN_FIXED
oDlg:close :={|| nEvent := xbeP_Close }
oDlg:setName( 111857 )
oDlg:create()
// snip...
// Browser anzeigen und Focus geben
oDlg:show()
oBrs:show()
SetAppWindow( oDlg )
// Fokus auf Fenster vorher?
SetAppFocus( oDlg )
//FENSTER verschwindet im Hintergrund
//WHY?!?
//Workaround?
if (SetAppWindow():setName() != 111857) .or. (SetAppFocus():setName() != 111857)
MsgBox( "Fehler beim setzen des aktiven Fensters!" )
SetAppWindow( oDlg )
SetAppFocus( oDlg )
endif
SetAppFocus( oBrs )
nEvent := xbe_None
do while ...
nEvent := AppEvent(...)
//snip...
oPart:handleEvent(...)
Aber der XbpDialog verschwindet hinter dem XbpCrt. Eigentlich kann das doch dann nur an dem Inhalt der Event-Schleife liegen?!?
mal schauen ob ich den Urheber demnächst dazu befragen kann, er meinte der ursprüngliche Code is schon mehrere Jahre alt....
EDIT: Sorry, falsches Forum - bitte verschieben nach GUI...