XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hauptfenster mit Kind-Fenster erstellen
Lauffähig ab Profan-Version 5.0
Dialog als MDI-Child erzeugen
Andreas Miethe * Bielefeld * 1999
##################################
DEF ACreateMDIChild(10) ! USER32,CreateMDIWindowA
DEF @ASetParent(2) ! USER32,SetParent,%%,%
Declare KName#,ST#,Child&
Declare Ende%
Dim Kname#,255
Dim ST#,255
String KName#,0 = Dialog
String ST#,0 = Kindfenster
SetTrueColor 1
CLS RGB(128,128,128)
Let child& = @ACreateMDIChild(KName#,ST#,$D0CF0000,add(%maxx,1),0,300,200,%hwnd,%Hinstance,0)
@ASetParent(Child&,%hwnd)
setwindowpos child&=0,0-300,300
PopUp &Fenster
AppendMenu 200,string$(st#,0)

WhileNot Ende%

    Waitinput

EndWhile

Dispose KName#
Dispose ST#
Fin