Hab noch schnell mal ein Beispiel geschrieben:
' CODE ERZEUGT MIT ROKO'S OBJECT CREATOR V 2.5
' DATUM 01.08.2002 um 18:37 Uhr
' VERWENDETE PROFANVERSION IST 7.0 ODER HÖHER
PROC DIALOG
DLG&=CREATE("DIALOG",%HWND,"Unabhängiges Dialogfenster",173,187,303,113)
BUTTON1% =@CREATE("BUTTON",DLG&,"Drück mich",0024,0012,0070,0030)
BUTTON2% =@CREATE("BUTTON",DLG&,"schliessen",0096,0012,0070,0030)
DIALOGDA%=1
ENDPROC
PROC DIALOGABFRAGE
IF EQU(dialogda%,1)
IF GETFOCUS(BUTTON1%) 'BUTTON
print ""
print "DANKE FÜRS KLICKEN"
print "SAGT DER DIALOG ;)"
ELSEIF GETFOCUS(BUTTON2%) 'BUTTON
destroywindow(DLG&)
dialogda%=0
ENDIF
Endif
ENDPROC
SETTRUECOLOR 1
DECLARE ENDE%
DECLARE DLG&,DIALOGDA%
DECLARE BUTTON1%
DECLARE BUTTON2%
DECLARE BUTTON3%
DECLARE BUTTON4%
WINDOW 0,0-500,500
WINDOWTITLE "Unabhängiges Dialogverhalten"
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
BUTTON3% =@CREATE("BUTTON",%HWND,"DIALOG ÖFFNEN",0224,0012,0200,0030)
BUTTON4% =@CREATE("BUTTON",%HWND,"TESTE MICH WENN DIALOG OFFEN",0224,0062,0200,0030)
WHILENOT ENDE%
WAITINPUT
DIALOGABFRAGE
If EQU(%KEY,2)
LET ENDE%= 1
ELSEIF getfocus(BUTTON3%)
if equ(dialogda%,0)
DIALOGDA%=1
DIALOG
endif
ELSEIF getfocus(BUTTON4%)
ifnot equ(%message,32) 'DIES NUR UM NICHT ZWEIMAL PRINT ANZUZEIGEN!
print ""
PRINT "JA, NUN KANN MAN BEIDES"
PRINT "HWND und DIALOG ABFRAGEN"
PRINT "VOM HAUPTFENSTER"
endif
ENDIF
WEND
Hoffe dies ist es was Du suchst ;)
Rolf
|