' 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