| |
| |
|
GDL | Hi,
I have NEN Adressenproblem with the Objekthandles,I festzugewiesene values need.vaguely so:
lever1&=create(button,%hwnd,..................................)
lever1&=1000
or
lever1&=1000
1000=create(button................................)
I need this desshalb,since the Objects of outer(hardwaremässig) and intern(mouse) gesteuert go must and the Focus the Objects at the same time The Adressennummer for a Hardwaresteuerung are.
make a long story short: The Handlenummer must solid zugeordnet and be with each Program Start always same his.
this was under DOS times relatively simply, there one itself in the config.sys EMS memory at started the PC reservieren could and Powerbasic(DOS verse.) hereon grab could.Perhaps goes this with windows and XProfan indeed?
Hello
Georg |
|
| |
| |
| |
|
|
Thorsten
Friedrichs | Hello.
means unfortunately have I not yet integrally understood what You make want. what want thou with which steer? should your hardware in the program what steer or should the program what steer?
to my knowledge to does it not solid Handles. DOS knew these manner Handleverwaltung as far as i know none and if still,then was already tappt im dunkeln as now with windows. The allocation the Handles undertaking windows dynamic, there can too nothing drann Change. the goes simply not. but there You the lever erhälst, can you this naturally to another Program transfer.
Perhaps having we Yes ne idea How You the what You want gestallten can, but momentarily white I though not yet what You make want.
Greeting
Toshy |
|
| |
| ------------------------------------------------------------------------------------------
XProfan 9/Win98&undWinXP/PRFellow/ TCP.DLL
Profaner seit 4.5 /einige Jahre (mit Programmierpausen) | 02/22/06 ▲ |
|
| |
|
|
 | | you become The tatsächlichen Handles whom Wunschhandels hold as an afterthought zuordnen must... |
|
| |
| |
| |
|
|
GDL | Hi,
@Toshi
correctly., under DOS there were no Handles.there the program but always in the same Speicherbereich running having one always the same Speicheradressen to that inquire.
used becomes the whole to parallelen Tastenabfrage (Weichenpult and screen), where each Button a others Datensatz a File loading.there The Hardwaretasten a solid address over a Matrix supplying would it hold beautiful been whom Bildschirmcontrols selbigen worth To and give this with getfocus einfachst abzufragen.
@If
I have it almost already befürchtet that it only so goes.have already so started only 2400 possible Keys gehoft ne others Possibility to find.
well well then point we at Programmaufruf each Bildschirmcontrol NEN Arraywert To.
Hello
Georg |
|
| |
| |
| |
|
|
| Mach still one ploy!
Nimm Gettext - and bestücke The Texts the Controls... |
|
| |
| |
| |
|
|
Frank
Abbing | Hi,
yet rather is, You save the value under GWL_USERDATA through SetWindowLong(). Reading goes then very simply with GetWindowLong(). |
|
| |
| |
| |
|
|
GDL | Hello Frank,
time irrespective whom Handles, but since promise You a integrally grosse Schwachstelle of me on.
On The menace there ausgelacht To go but I checke this with the Setwindowlong and co not at all.I have time attempts whom code Snippet Animated Window To understand.Fehlanzeige I kapier The Funktionsabläufe the individual command simply net.
Hello
Georg |
|
| |
| |
| |
|
|
Frank
Abbing | Hi,
Why ought to you someone laugh at?
here time one Anwendungsbeispiel:
CompileMarkSeparationDeclare button&,sthand&
Def GetWindowLong(2) !"USER32","GetWindowLongA"
Def SetWindowLong(3) !"USER32","SetWindowLongA"
Cls
button&=Create("Button",%hwnd,"Test",32,32,80,24)
SetWindowLong(button&,-21,1000)
sthand&=GetWindowLong(button&,-21)
Print "Statischer Handle = "+Str$(sthand&)
WaitInput
| 02/23/06 ▲ | |
|
| |
|
|
GDL | Hello Frank,
it working.vaguely so becomes it installed.
CompileMarkSeparationDeclare Button&[2450],Sthand&,ende%,adresse&,nummer%,y%,num%
Def Getwindowlong(2) !"USER32","GetWindowLongA"
Def Setwindowlong(3) !"USER32","SetWindowLongA"
window 0,0 -1024,748
y%=10
clear nummer%
whilenot y% > 600
Button&[nummer%]=Create("Button",%Hwnd,"Test "+str$(nummer%),32,y%,150,24)
Setwindowlong(Button&[nummer%],-21,(1000+nummer%))
y%=y%+30
inc nummer%
wend
whilenot ende%
clear num%
Waitinput
whilenot num% > nummer%
if getfocus(button&[num%])
adresse&=Getwindowlong(Button&[num%],-21)
drawtext 400,300,"aktuelle Adresse = "+str$(adresse&)+" "
endif
inc num%
wend
wend
CompileMarkSeparation!
Declare Button&[2450],Sthand&,end%,adresse&,number%,y%,num%
Def Getwindowlong(2) !"USER32","GetWindowLongA"
Def Setwindowlong(3) !"USER32","SetWindowLongA"
window 0,0 -1024,748
y%=10
clear number%
whilenot y% > 600
Button&[number%]=Create("Button",%Hwnd,"Test "+st$(number%),32,y%,150,24)
Setwindowlong(Button&[number%],-21,(1000+number%))
y%=y%+30
inc number%
wend
whilenot end%
clear num%
Waitinput
whilenot num% > number%
if getfocus(button&[num%])
adresse&=Getwindowlong(Button&[num%],-21)
drawtext 400,300,"aktuelle address = "+st$(adresse&)+" "
endif
inc num%
wend
wend
be again a step moreover.time guggen How I it moreover resolve.
Hello
Georg |
|
| |
| |
| |
|
|
Frank
Abbing | Hi,
well siehste.
and no fear to API. If you The engineering first understood have, is the Use so integrally slight  |
|
| |
| |
| |
|
(1.545)
Deutsch
English
Français
Español
Italia