TAB-Taste im Combobox-Gadget abfangen

[ts-soft]

>> Da alle Tab-Shortcuts ausgeschalten werden, muss ich dann fuer jedes Gadget das Tab-Handling einbauen, oder?

Ja, aber wenn Du schon EasyVent einbindest, kannste alle damit machen,
haste keine Probleme mehr. Ich verwende es auch in einigen Projekten,
erspart viel Arbeit.

PS: das Tab-Handling kannste in eine Procedure packen, schau Dir die
PB_Gadget Structure an

[Tafkadasom2k5]

Würde sowas nicht auch per Subclassing gehen?
Ich habe jetzt gerade kein Purebasoc-Beispiel zur Hand, aber normalerweise dürfte man übers Subclassing doch auch Events wie "Tab" abfangen können..?

Gr33tz
Tafkadasom2k5

[ts-soft]

Würde sowas nicht auch per Subclassing gehen?
Ich habe jetzt gerade kein Purebasoc-Beispiel zur Hand, aber normalerweise dürfte man übers Subclassing doch auch Events wie "Tab" abfangen können..?

Gr33tz
Tafkadasom2k5

Würde auch gehen, aber EasyVent macht das selbständig über
SuperClassing. Man muß nicht soviel im MSDN wühlen

[edel]

Würde sowas nicht auch per Subclassing gehen?
Ich habe jetzt gerade kein Purebasoc-Beispiel zur Hand, aber normalerweise dürfte man übers Subclassing doch auch Events wie "Tab" abfangen können..?

Gr33tz
Tafkadasom2k5

Würde auch gehen, aber EasyVent macht das selbständig über
SuperClassing. Man muß nicht soviel im MSDN wühlen

Kann ich nicht so stehen lassen . Hier wird kein Superclassing benutzt,
sondern Subclassing. Sollte somit die Frage von Tafka auch beantworten.

[Tafkadasom2k5]

Kann ich nicht so stehen lassen . Hier wird kein Superclassing benutzt,
sondern Subclassing.

@TS-Soft:

[ts-soft]

In der Anleitung von EasyVent stehts so. Ich nutze es als UserLib, hab also
den Source nicht ständig vor Augen.

@Tafkadasom2k5
Die kleine Rotznase mit ausgestreckter Zunge, bist Du das

[Kaeru Gaman]

der is ja echt voll knuffig, was ein Lausbub.

...ist das dein junge?

[Tafkadasom2k5]

...ne, kenn ich nicht...
Aber ich habe ihn gesehen und fand ihn niedlich

Gr33tz
Tafkadasom2k5

Edit: Ne, mit eigenen Lausbubs warte ich wohl noch

[edel]

In der Anleitung von EasyVent stehts so. Ich nutze es als UserLib, hab also
den Source nicht ständig vor Augen.

Weder im Source noch in der Anleitung steht etwas ueber Klassenableitung,
geschweige denn 'superclassing'. Was das mit der Lib zu tun hat weiss ich nicht , klingt aber nach einer Ausrede

Hier mal 2 Beispiele :

subclassing :

Code: Alles auswählen

  
  Procedure Callback(h,m,w,p)
    shared oldProc
    
    If m = #WM_CHAR
      
      select w
        case 48 to 57 , 8 ; 0-9 + backspace
        default 
          ProcedureReturn 0
      EndSelect
      
    EndIf
    
    ProcedureReturn CallWindowProc_(oldProc,h,m,w,p)
  EndProcedure
  
  hwnd  = OpenWindow(0,0,0,200,200,"")
  
  hedit = CreateWindowEx_(0,"edit","0123456789",#WS_CHILD|#WS_VISIBLE,10,10,180,20,hwnd,0,0,0)
  
  oldProc = SetWindowLong_(hedit,#GWL_WNDPROC,@callback()) ;<- subclassing
  
  Repeat
    
  Until WaitWindowEvent() = 16

superclassing

Code: Alles auswählen

  
  Procedure Callback(h,m,w,p)
    shared oldProc
    
    If m = #WM_CHAR
      
      select w
        case 48 to 57 , 8 ; 0-9 + backspace
        default 
          ProcedureReturn 0
      EndSelect
      
    EndIf
    
    ProcedureReturn CallWindowProc_(oldProc,h,m,w,p) ; alte adresse aufrufen
  EndProcedure
  
  Procedure RegisterMyCLass()
    shared oldProc
    Protected wndex.WNDCLASSEX\cbSize = sizeof(WNDCLASSEX)
    Protected hInstance = GetModuleHandle_(0)
    GetClassInfoEx_(0,"edit",@wndex) ; info ueber 'edit' holen
    oldproc = wndex\lpfnWndProc ; alte adresse speichern
    wndex\lpszClassName = @"MyWinClass" ; unseren Klassen namen eintragen
    wndex\hInstance     = hInstance
    wndex\lpfnWndProc   = @Callback() ; unsere procedure angeben
    RegisterClassEx_(@wndex)
  EndProcedure
  
  RegisterMyCLass() ; superclassing
  
  hwnd  = OpenWindow(0,0,0,200,200,"")
  
  hedit = CreateWindowEx_(0,"MyWinClass","0123456789",#WS_CHILD|#WS_VISIBLE,10,10,180,20,hwnd,0,0,0)
  
  Repeat
  
  Until WaitWindowEvent() = 16

Wuerde in EasyEvent also gar keinen Sinn machen.