Hallo,
gibt es eine Möglichkeit die rechte Maustaste in eine ChoiceBox ab zu fragen?
Wenn Ja wie denn…..!
Ich würde gerne diese rechte Maustasten Auswahl dann aus der Liste entfernen.
Ein Parr Anregungen von euch währen sehr hilfreich.
rechte Maustaste in ChoiceBox
-
-
- Gerade eben
- Anzeige
Hallo!
Wenn du gerade an deiner Website arbeitest oder dein aktuelles Hosting überdenkst: Wir betreiben mit NetzLiving eine Hosting-Plattform, die speziell auf Performance, Sicherheit und einfache Verwaltung ausgelegt ist.
- ✔️ Schnelle Ladezeiten (optimiert für WordPress, WoltLab & Co.)
- ✔️ Deutsche Server & DSGVO-konform
- ✔️ Persönlicher Support (kein 0815-Ticket-System)
Wenn du Fragen hast, kannst du dich gerne jederzeit an @Maximilian Rupp wenden
Hinweis:
-
Ist ja ein Kombi-Control, also ein Control, dass sich aus mehreren zusammen setzt. Du müsstest also den Handle der Listbox ermitteln (CB_GETCOMBOBOXINFO), diese subclassen und auf WM_RBUTTONDOWN, WM_RBUTTONUP oder WM_CONTEXTMENU abfragen und entsprechend reagieren.
-
Hab dir schnell was gebaut, kannst es ja an deine Gegebenheiten anpassen:
Code
Alles anzeigen' Code erzeugt mit F.Abbing's LemonViD Version 1.0.0.3 am 20.10.2012 um 20:06 Uhr, ' Spenden-Button, sowie weitere Freeware-Tools für XProfan auf http://frabbing.net ' Technischer Support auf http://www.paules-pc-forum.de/forum/xprofan und http://purebasic.fr/german ' -------------------------------------------------------------------------------------------------- Declare nurso%, choicebox1%, listbox%, ComboBoxInfo# Def GetStockObject(1) !"GDI32","GetStockObject" Def GetSysColor(1) !"USER32","GetSysColor" Def GetParent(1) !"USER32","GetParent" Def &COLOR_BTNFACE $F Def &DEFAULT_GUI_FONT $11 Def &WM_RBUTTONDBLCLK $206 Def &WM_RBUTTONDOWN $204 Def &WM_RBUTTONUP $205 Def &CB_GETCOMBOBOXINFO $164 Def &CB_SHOWDROPDOWN $14F Struct ComboBoxInfo = cbSize&, rcItem#(16), rcButton#(16), stateButton&, hwndCombo&, hwndItem&, hwndList& Dim ComboBoxInfo#, ComboBoxInfo Proc CreateElements WindowStyle 26 | 512 | 2048 WindowTitle "Arbeitsfenster" Window 280, 0 - 742, 568 Cls GetSysColor(&COLOR_BTNFACE) SetDialogFont GetStockObject(&DEFAULT_GUI_FONT) choicebox1% = Create("ChoiceBox", %hwnd, 0, 96, 56, 120, 124) ComboBoxInfo#.cbSize& = SizeOf(ComboBoxInfo#) SendMessage(choicebox1%, &CB_GETCOMBOBOXINFO, 0, ComboBoxInfo#) listbox% = ComboBoxInfo#.hwndList& WhileLoop 6 AddString(choicebox1%, "Test " + Str$(&loop)) EndWhile EndProc SubClassProc If %smessage = &WM_RBUTTONUP DeleteString(choicebox1%, GetCurSel(choicebox1%)) SendMessage(choicebox1%, &CB_SHOWDROPDOWN, 0, 0) SendMessage(choicebox1%, &CB_SHOWDROPDOWN, 1, 0) Set("WinProc", 0) EndIf EndProc Proc MainLoop UserMessages 16 ShowWindow(%hwnd, 1) Subclass listbox%, 1 While 1 WaitInput Case %umessage = 16 : BREAK If Clicked(choicebox1%) '#window EndIf EndWhile Subclass listbox%, 0 EndProc Proc Main CreateElements MainLoop EndProc Main End -
Zitat von Frabbing;938677
Hab dir schnell was gebaut, kannst es ja an deine Gegebenheiten anpassen:
Code
Alles anzeigen' Code erzeugt mit F.Abbing's LemonViD Version 1.0.0.3 am 20.10.2012 um 20:06 Uhr, ' Spenden-Button, sowie weitere Freeware-Tools für XProfan auf http://frabbing.net ' Technischer Support auf http://www.paules-pc-forum.de/forum/xprofan und http://purebasic.fr/german ' -------------------------------------------------------------------------------------------------- Declare nurso%, choicebox1%, listbox%, ComboBoxInfo# Def GetStockObject(1) !"GDI32","GetStockObject" Def GetSysColor(1) !"USER32","GetSysColor" Def GetParent(1) !"USER32","GetParent" Def &COLOR_BTNFACE $F Def &DEFAULT_GUI_FONT $11 Def &WM_RBUTTONDBLCLK $206 Def &WM_RBUTTONDOWN $204 Def &WM_RBUTTONUP $205 Def &CB_GETCOMBOBOXINFO $164 Def &CB_SHOWDROPDOWN $14F Struct ComboBoxInfo = cbSize&, rcItem#(16), rcButton#(16), stateButton&, hwndCombo&, hwndItem&, hwndList& Dim ComboBoxInfo#, ComboBoxInfo Proc CreateElements WindowStyle 26 | 512 | 2048 WindowTitle "Arbeitsfenster" Window 280, 0 - 742, 568 Cls GetSysColor(&COLOR_BTNFACE) SetDialogFont GetStockObject(&DEFAULT_GUI_FONT) choicebox1% = Create("ChoiceBox", %hwnd, 0, 96, 56, 120, 124) ComboBoxInfo#.cbSize& = SizeOf(ComboBoxInfo#) SendMessage(choicebox1%, &CB_GETCOMBOBOXINFO, 0, ComboBoxInfo#) listbox% = ComboBoxInfo#.hwndList& WhileLoop 6 AddString(choicebox1%, "Test " + Str$(&loop)) EndWhile EndProc SubClassProc If %smessage = &WM_RBUTTONUP DeleteString(choicebox1%, GetCurSel(choicebox1%)) SendMessage(choicebox1%, &CB_SHOWDROPDOWN, 0, 0) SendMessage(choicebox1%, &CB_SHOWDROPDOWN, 1, 0) Set("WinProc", 0) EndIf EndProc Proc MainLoop UserMessages 16 ShowWindow(%hwnd, 1) Subclass listbox%, 1 While 1 WaitInput Case %umessage = 16 : BREAK If Clicked(choicebox1%) '#window EndIf EndWhile Subclass listbox%, 0 EndProc Proc Main CreateElements MainLoop EndProc Main End
Hallo Frank,
:-):-):-)
bau ich gleich mal ein Danke!
Jetzt mitmachen!
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!