MDI - aber wie?

[Jan]

Wie die Überschrift dieses Forums schon sagt - eigentlich ist es mir etwas peinlich. Aber die Fragen müssen mir einfach mal beantwortet werden.

Also: Wie schaffe ich es, abhängige Child-Dialoge zu erstellen? Die also den Parent sperren, bis der Child wieder geschlossen wird?

Außerdem: Wo ist eigentlich der Unterschied zwischen

Code: Alles auswählen

oDlg:setModalState(XBP_DISP_APPMODAL)

und

Code: Alles auswählen

oDlg:ShowModal()

?
In der Onlinehilfe kann ich keinen Unterschied erkennen (außer natürlich, daß ShowModal() einen auswertbaren Wert zurückgibt). Im Moment verwende ich die erste Variante, damit bekomme ich die Childs wenigstens in der Vordergrund und aktiv.

Jan

[Rolf Ramacher]

Hi Jan,

also ich arbeite mit xbpDialog(). Den entsprechenden Dialog oDlg() gebe ich dann an eine weitere Function weiter. Diese übernehme ich dann als
oParent(). Vor dem aufbau der neuen Maske oDlg() wird oParent:disable()

wenn die "neue Maske" dann mit einem Pushbutton beendet wird, geschieht dies im Codeblock folgendermaßen:

oXbp:activate:={|| oParent:enable(), oDlg:destroy(),SetAppFocus(oParent),PostAppEvent(xbep_close) }

Dafür muß natürliche event-Handle enthalten sein.
Somit ist die "alte- Maske" oParent gesperrt, bis auf de Pushbutton gedrückt/geklickt wird.

[brandelh]

Hallo,

grundsätzlich habe ich mal gelesen, dass Xbase++ (ähnlich wie mein BasicCompiler) gar keine echten MDI Fenster unterstützt, da alles vom Dialog abgeleitet wäre ... ob das stimmt kann ich nicht beurteilen.

Zu deiner Frage:

Grundsätzlich regeln dies die Paramter Owner und Parent, die beim Dialog angegeben werden. Den genauen Zusammenhang kann ich jetzt nicht aufschreiben, da muss ich immer selbst nachsehen. Schließlich hat man das irgendwann in eine Routine geschrieben und sich nicht mehr gekümmert.

Aber hier findest du ein schönes Beispiel wie die verschiedenen Fenster wirken:

C:\ALASKA\XPPW32\SOURCE\samples\basics\WINDOWS

[Jan]

Rolf,

danke. Funktioniert einwandfrei. Nur das mit dem xbeP_Close muß raus, sonst wird die komplette Anwendug beendet.

Jan

[andreas]

Rolf,

danke. Funktioniert einwandfrei. Nur das mit dem xbeP_Close muß raus, sonst wird die komplette Anwendug beendet.

Jan

Hallo Jan,

dafür solltest du deine Event-Schleife anpassen, damit diese nicht auf xbeP_Close reagiert. Dann hast du keine Probleme mehr damit.

[Rolf Ramacher]

Hallo Jan,

so sieht meinEvent-Handle aus.

Dann hast du keine Probleme.

nEvent := xbe_None
DO WHILE nEvent <> xbeP_Close
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO