2 Fenstern abr nur 1 mit x schließen?

Übersicht BlitzBasic BlitzPlus

Neue Antwort erstellen

klin

Betreff: 2 Fenstern abr nur 1 mit x schließen?

BeitragSo, Jun 24, 2007 17:17
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo Leute,
Was soll ich machen, wenn ich 2 fenstern erstellt habe, aber ich nur 1 mit x schließen will? Aber nur 1!!!
Ich habe sogar schon mit Function probiert, aber dann schließt der gar keins -.-

Wäre sehr nett auf ne Antwort
MFG
Klin

Eingeproggt

BeitragSo, Jun 24, 2007 17:26
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich hab jetzt grad nicht alles im Kopf, aber so ein pseudo-Code kommt schon zusammen:
Code: [AUSKLAPPEN]

If EventID()=$803 Then ;Schliessen
  FreeGadget ActiveWindow()
Endif


FreeGadget ist im Prinzip die Antwort. Das entfernt jedes BlitzPlus Objekt (auch Fenster), ohne dass das Programm beendet wird.

Edit: keine Garantie aufs "ActiveWindow"! Bei mir spinnt das manchmal, weshalb ich lieber mit den Handles arbeite
Code: [AUSKLAPPEN]

FreeGadget fenster2
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

D2006

Administrator

BeitragSo, Jun 24, 2007 17:43
Antworten mit Zitat
Benutzer-Profile anzeigen
Wie in der Event-Tabelle von Blitzbase zu sehen, gibt das Event WindowClose ($803) in ql:EventSource den Handle des Fensters, bei dem auf X gedrückt wurde, mit. So kannst du einfach nur das Fenster schließen, oder, wenn es z.B. das Hauptfenster war, alles schließen. Wie es dir halt beliebt.
Intel Core i5 2500 | 16 GB DDR3 RAM dualchannel | ATI Radeon HD6870 (1024 MB RAM) | Windows 7 Home Premium
Intel Core 2 Duo 2.4 GHz | 2 GB DDR3 RAM dualchannel | Nvidia GeForce 9400M (256 MB shared RAM) | Mac OS X Snow Leopard
Intel Pentium Dual-Core 2.4 GHz | 3 GB DDR2 RAM dualchannel | ATI Radeon HD3850 (1024 MB RAM) | Windows 7 Home Premium
Chaos Interactive :: GoBang :: BB-Poker :: ChaosBreaker :: Hexagon :: ChaosRacer 2

Eingeproggt

BeitragSo, Jun 24, 2007 18:14
Antworten mit Zitat
Benutzer-Profile anzeigen
Stimmt. Ich sagte ja, ich hab nicht mehr alles im Kopf Smile
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9
 

schalli

BeitragSo, Jul 08, 2007 16:27
Antworten mit Zitat
Benutzer-Profile anzeigen
Code: [AUSKLAPPEN]
While Not KeyHit(1) ; Editiert: Ich habe <not> vergessen
  WaitEvent()
  If EventID() = $803 Then
    Select EventSource()
      Case window1 : FreeGadget window1
      Case window2 : FreeGadget window2
    End Select
  EndIf
Wend
End
  • Zuletzt bearbeitet von schalli am Mo, Jul 09, 2007 10:42, insgesamt einmal bearbeitet

klin

BeitragMo, Jul 09, 2007 8:14
Antworten mit Zitat
Benutzer-Profile anzeigen
WOW schali THX ich habe es zwar noch nicht probiert... aber das sieht doch ganz gut aus
Danke
MFG
Klin

Hip Teen

BeitragMo, Jul 09, 2007 20:39
Antworten mit Zitat
Benutzer-Profile anzeigen
Hey schalli, wie wärs mit ner Erweiterung, die direkt das aktuelle Fenster löscht? So kann man beliebig Fenster erstellen, braucht aber nicht das Case dauernd zu erweitern.
Code: [AUSKLAPPEN]
While Not KeyHit(1) ; Editiert: Ich habe <not> vergessen
  WaitEvent()
  If EventID() = $803 Then
      FreeGadget EventSource()
  EndIf
Wend
End
Spruch der Woche: "Ahh, ein neues Gesicht?!" - "Nein, das hab ich schon länger"
 

schalli

BeitragDi, Jul 10, 2007 8:57
Antworten mit Zitat
Benutzer-Profile anzeigen
@Hip Teen
Gute Idee!

Aber mal was anderes.
Ich mach meistens so,
Code: [AUSKLAPPEN]
DisableGadget window
HideGadget window

weil ich Fenster meistens noch brauche.
Dann mach ich sie mit
Code: [AUSKLAPPEN]
EnableGadget window
ShowGadget window

wieder sichtbar.

Hip Teen

BeitragDi, Jul 10, 2007 16:24
Antworten mit Zitat
Benutzer-Profile anzeigen
Jop, du hast recht, FreeGadget ist eigentlich komisch immer anzuwenden. Darauf hab ich gar nicht geachtet.
Aber du brauchst das Fenster dann nicht disablen/enablen, einfach Hide reicht da.
Spruch der Woche: "Ahh, ein neues Gesicht?!" - "Nein, das hab ich schon länger"

klin

BeitragMi, Jul 11, 2007 6:30
Antworten mit Zitat
Benutzer-Profile anzeigen
Danke Hip Teen ! Das hatt super funktioniert Very Happy
 

schalli

BeitragMi, Jul 11, 2007 11:53
Antworten mit Zitat
Benutzer-Profile anzeigen
Äh, das mit dem Disable/Enable habe ich mir in den B+Samples
abgeguckt

Rob\Blitzalarm

Neue Antwort erstellen


Übersicht BlitzBasic BlitzPlus

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group