| |
| |
|
Georg
Hovenbitzer | ¡Hola zusammen,
Yo quería veces esta On Unit testen, bekomme beim Aufruf siempre el Fehler:
Línea 1 en On.pcu:
$DEFINE XPSE
XPSE Yo no installiert, debería aber doch auch sin ir - oder ?
KompilierenMarcaSeparación $U usermessages.pcu = user.
$U lists.pcu = list.
$U On.pcu = On.
Declare myEvent&
WindowStyle (2 | 8 | 16 | 32 | 128 | 512)
Window ((%MaxX - 800) / 2),((%MaxY - 600) / 2)-800,600
Edit& = @Control(Edit,,$54001001,20,470,754,20,%hWnd,301,%hInstance,$20000)
myEvent& = on.event(28,Edit&) OnChange
WhileNot %Key = 2
WaitInput
If %UMessage = myEvent&
Print Treffer :-)
EndIf
EndWhile
on.delevents
on.Close
End
|
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 01.12.2006 ▲ |
|
| |
|
|
RGH | $DEFINE hay sólo de XProfan 10. El PCU setzt also XProfan 10 vorraus.
Saludo
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 01.12.2006 ▲ |
|
| |
|
|
 | |
| |
| |
| |
|
|
Georg
Hovenbitzer | Verdammt  Bitte con el Pressung el CDs beeilen 
Yo habe lo aber auch veces anders intenta:
KompilierenMarcaSeparaciónDef on(4) !on.dll,on
Declare OnDll&
Declare Edit&
OnDll& = @Usedll(on.dll)
Cls
Edit& = @Control(Edit,,$54001001,50,10,100,20,%hWnd,301,%hInstance,$20000)
On(28,Edit&,102426,%Hwnd)
UserMessages 102426
WhileNot %Key = 2
WaitInput
If %UMessage = 102426
Print Treffer
EndIf
EndWhile
On(28,Edit&,102426,0)
FreeDLL OnDll&
End
Sombrero aber auch no Erfolg gebracht, una Änderung en el Editar no es erkannt.
Wenn Yo el On2.dll de hier versuche, bekomme Yo siempre una Schutzverletzung. |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 01.12.2006 ▲ |
|
| |
|
|
| | Hm schau mal en el Unitsource como DLL tatsächlich verwendet se. Hier otra vez el neuste DLLVersion. |
|
| |
| |
| |
|
|
Georg
Hovenbitzer | Hola si,
kannst du me tal vez algo helfen, Yo vengo con el Source el PCU no está claro.
Mir fällt lo doch bastante schwer XPSE Code a lesen.
Yo habe nun folgendes sin Erfolg intenta:
KompilierenMarcaSeparaciónDeclare OnDll&
Declare Edit&
Declare ProcAddr&
Declare UMsg&
Cls
OnDll& = @Usedll(on.dll)
ProcAddr& = @External(kernel32,GetProcAddress,OnDll&,on)
Edit& = @Control(Edit,,$54001001,50,10,100,20,%hWnd,301,%hInstance,$20000)
UMsg& = @Call(ProcAddr&,28,Edit&,102426,%hWnd)
UserMessages UMsg&,102426
WhileNot %Key = 2
WaitInput
If %UMessage = UMsg&
Print Treffer1
ElseIf %UMessage = 102426
Print Treffer2
EndIf
EndWhile
@Call(ProcAddr&,28,Edit&,102426,0)
FreeDLL OnDll&
End
|
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 01.12.2006 ▲ |
|
| |
|
|
| | Espero con igual veces... |
|
| |
| |
| |
|
|
| Geht bastante prima:
KompilierenMarcaSeparación {$cleq}
Declare OnDll&
Declare Edit&
Declare ProcAddr&
Declare eventID&
Cls
OnDll& = @Usedll(on.dll)
ProcAddr& = @External(kernel32,GetProcAddress,OnDll&,on)
Edit& = @Control(Edit,,$54001001,50,10,100,20,%hWnd,301,%hInstance,$20000)
eventID& = @Call(ProcAddr&,515,Edit&,102426,%hwnd)
print eventID&
UserMessages 102426
WhileNot %Key = 2
WaitInput
If %UMessage = 102426
Print Treffer1
EndIf
EndWhile
@Call(ProcAddr&,515,Edit&,102426,0)
FreeDLL OnDll&
End
|
|
| |
| |
| |
|
|
Georg
Hovenbitzer | Stimmt, auch en mi Code klappt lo con 515 LinksDoppelKlick.
Jetzt Yo sólo kappiert, lo klappen sólo el Messages el en el Unit angegeben son 
Desde que a dato lo con el EasyEvent gemacht habe, bin Yo no en el Concepto gekommen el OnChange no unterstützt se. 
Was Yo aber siempre todavía no geschaft habe, es una Proc aufzurufen:
KompilierenMarcaSeparaciónDeclare OnDll&
Declare Edit&
Declare ProcAddr&
Declare eventID&
Cls
Proc Test
Print per Proc
Return 0
EndProc
OnDll& = @Usedll(on.dll)
ProcAddr& = @External(kernel32,GetProcAddress,OnDll&,on)
Edit& = @Control(Edit,,$54001001,150,100,100,20,%hWnd,301,%hInstance,$20000)
@Call(ProcAddr&,0,0,0,1)
eventID& = @Call(ProcAddr&,521,Edit&,@ProcAddr(Test,0),%hWnd)
Print eventID& = + @Str$(eventID&)
WhileNot %Key = 2
WaitInput
EndWhile
@Call(ProcAddr&,515,Edit&,@ProcAddr(Test,0),0)
FreeDLL OnDll&
End
Wo liegt porque hier el Fehler ya otra vez  |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 01.12.2006 ▲ |
|
| |
|
|
| Stop! Es unrichtig el sólo el Messages trabajo el en el Unit deklariert son. El DLL macht no hay diferencia.
El Sache es una otro! WaitInput lässt se manchmal no durchbrechen - en cierto Messages. En Scrollbars tener Yo auch ya festgestellt el beim Scrollen waitinput trotz gesetzter Message no durchbrochen se.
Que el Proc va algo anders - wart Yo schau mal: |
|
| |
| |
| |
|
|
| Schau veces así gehts:
KompilierenMarcaSeparaciónDeclare OnDll&
Declare Edit&
Declare ProcAddr&
Declare eventID&
Cls
OnDll& = @Usedll(on.dll)
ProcAddr& = @External(kernel32,GetProcAddress,OnDll&,on)
Edit& = @Control(Edit,,$54001001,50,10,100,20,%hWnd,301,%hInstance,$20000)
Call(ProcAddr&,0,0,0,1)
eventID& = @Call(ProcAddr&,515,Edit&,procaddr(doit,3),%hwnda>
...
KompilierenMarcaSeparación |
|
| |
| |
| |
|
|
| Su OnChange se vlt. garnicht ausgelöst..., probier veces
WM_KEYDOWN = { $100 | 256 }
WM_KEYFIRST = { $100 | 256 }
WM_KEYLAST = { $108 | 264 }
WM_KEYUP = { $101 | 257 } |
|
| |
| |
| |
|
(527)
Deutsch
English
Français
Español
Italia