Aktuelle Zeit: 28.02.2020 01:57

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 4 Beiträge ] 
Autor Nachricht
 Betreff des Beitrags: Dynamisch erstelltes Gadget bei mehreren Fenstern
BeitragVerfasst: 19.01.2020 18:00 
Offline

Registriert: 09.02.2017 13:54
Ich stelle mir gerade folgende Frage,

Ich habe eine Anwendung mit mehreren Fenster.
Die Anwendung wird in einer main.pb gesteuert.
Wenn ich jetzt in einer Routine ein beliebiges Gadget dynamisch
erstelle, wie sage ich dem Gadget zu welchem Fenster es gehört?
In der Erstellungsanweisung ist ja dafür kein Parameter vorhanden.


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Dynamisch erstelltes Gadget bei mehreren Fenstern
BeitragVerfasst: 19.01.2020 18:10 
Offline
Benutzeravatar

Registriert: 01.04.2007 20:18
UseGadgetList() ist da dein Verbündeter.

_________________
PureBasic 5.71 LTS (Windows x86/x64) | Windows10 Pro x64 | Z370 Extreme4 | i7 8770k | 32GB RAM | iChill GeForce RTX 2080 Super | HAF XF Evo​​


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Dynamisch erstelltes Gadget bei mehreren Fenstern
BeitragVerfasst: 19.01.2020 18:17 
Offline

Registriert: 09.02.2017 13:54
:allright: :) und vielen Dank.


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Dynamisch erstelltes Gadget bei mehreren Fenstern
BeitragVerfasst: 19.01.2020 18:28 
Offline

Registriert: 27.11.2016 18:13
Wohnort: Erzgebirge
Hier war jemand schneller.

Aber trotzdem mal ein kleines Beispiel:

Code:
Procedure Zweit_Fenster()
  If OpenWindow(1, 0, 0, 200, 200, "Das Hallo-Fenster", #PB_Window_SystemMenu)
   
  EndIf
EndProcedure


If OpenWindow(0, 100, 200, 600, 400, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget)
  ButtonGadget(0, 5, 5, 200, 30, "Statischer Knopf")
 
  Zweit_Fenster()
 
  Repeat
    Event = WaitWindowEvent()

    If Event = #PB_Event_CloseWindow
      If EventWindow() = 0
        Quit = 1
      ElseIf IsWindow(1)
        CloseWindow(1)
      EndIf
    EndIf
   
    If Event = #PB_Event_Gadget
      If EventGadget() = 0
        If IsWindow(1) And Not IsGadget(1)
          ButtonGadget(1, 10, 10, 100, 30, "Hallo!")
        Else
          UseGadgetList(WindowID(0))
          ButtonGadget(1, 100, 100, 100, 30, "Hallo!")
        EndIf
      EndIf
    EndIf

  Until Quit = 1
 
EndIf

End

_________________
Betriebssysteme: MX Linux 19 / Windows 10 / Mac OS 10.15.2 / Android 7.0 ;)


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 4 Beiträge ] 

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye