| |
| |
|
Georg
Hovenbitzer | allô zusammen,
je voulais la fois cet On Unit testen, bekomme beim Aufruf toujours den faute:
la ligne 1 dans On.pcu:
$DEFINE XPSE
XPSE habe je pas installiert, sollte mais doch aussi sans aller - ou bien ?
KompilierenMarqueSéparation $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
Fin
|
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 01.12.2006 ▲ |
|
| |
|
|
RGH | $DEFINE gibt es seulement ab XProfan 10. qui PCU mets alors XProfan 10 vorraus.
Salut
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  s'il te plaît avec qui Pressung qui CDs beeilen 
j'ai es mais aussi la fois anders versucht:
KompilierenMarqueSéparationDef 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&
Fin
Hat mais aussi keinen Erfolg gebracht, une Changement im Éditer wird pas erkannt.
si je qui On2.dll d'ici versuche, bekomme je toujours une Schutzverletzung. |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 01.12.2006 ▲ |
|
| |
|
|
| | Hm exposition la fois dans den Unitsource comment qui DLL réellement verwendet wird. ici nochmal qui neuste DLLVersion. |
|
| |
| |
| |
|
|
Georg
Hovenbitzer | allô iF,
peux du mir peut-être quelque chose aider, je viens avec dem Source qui PCU pas bien sûr.
Mir fällt es doch droite schwer XPSE Code trop lesen.
j'ai eh bien folgendes sans Erfolg versucht:
KompilierenMarqueSéparationDeclare 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&
Fin
|
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 01.12.2006 ▲ |
|
| |
|
|
| | je exposition juste la fois... |
|
| |
| |
| |
|
|
| allez entier prima:
KompilierenMarqueSéparation {$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&
Fin
|
|
| |
| |
| |
|
|
Georg
Hovenbitzer | Stimmt, aussi dans mon Code klappt es avec 515 LinksDoppelKlick.
maintenant habe je seulement kappiert, es marcher seulement qui Messages qui dans qui Unit angegeben sommes 
là je jusqu'à dato es avec qui EasyEvent gemacht habe, suis je pas sur qui concept gekommen cela OnChange pas soutenu wird. 
quoi je mais toujours pas geschaft habe, ist une Proc aufzurufen:
KompilierenMarqueSéparationDeclare 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&
Fin
wohin liegt car ici qui faute encore  |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 01.12.2006 ▲ |
|
| |
|
|
| Stop! c'est unrichtig cela seulement qui Messages marcher qui dans qui Unit deklariert sommes. qui DLL pouvoir keinen Unterschied.
qui l'affaire ist une autre! WaitInput peut sich quelquefois pas durchbrechen - chez certain Messages. chez Scrollbars hab je es aussi déjà festgestellt cela beim Scrollen waitinput trotz gesetzter Message pas durchbrochen wird.
Que le Proc allez quelque chose anders - étiez je exposition la fois: |
|
| |
| |
| |
|
|
| exposition la fois so gehts:
KompilierenMarqueSéparationDeclare 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),%hwndà>
...
KompilierenMarqueSéparation |
|
| |
| |
| |
|
|
| Dein OnChange wird vlt. garnicht ausgelöst..., probier la fois
WM_KEYDOWN = { $100 | 256 }
WM_KEYFIRST = { $100 | 256 }
WM_KEYLAST = { $108 | 264 }
WM_KEYUP = { $101 | 257 } |
|
| |
| |
| |
|
(521)
Deutsch
English
Français
Español
Italia