| |
| |
|
 | |
| |
| |
| |
|
|
Michael
Wodrich | Trotz aussagefähigem Titel potrebbe da ruhig ein wenig Text per den Anfänger stehen.
Schließlich werden die Snippets ja eher nicht vom Profi als viel mehr vom Anfänger genutzt - und der kann hiermit gar nichts anfangen.
Sorry
Schöne Grüße
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 05.01.2008 ▲ |
|
| |
|
|
 | |
| |
| |
| |
|
|
Frank
Abbing | | Zumindest solltest du die -12 als Konstante angeben. |
|
| |
| |
| |
|
|
Dietmar
Horn | @Michael: In der Zeit, in der Du Dein Posting geschrieben hast, hättest Du hierfür sicherlich auch ein Demo zusammengetippelt. 
Hier ein Beispiel:
KompilierenMarkierenSeparierenDEF SetClassLong(3) ! User32,SetClassLongA
Def LoadCursor(2) !USER32,LoadCursorA
declare e%,i%,exit&,test&
WindowTitle Drucker als Mauscursor
cls
setclasslong(%HWnd,-12,LoadCursor(%hinstance,DRUCKER))
test& = Create(Button,%HWnd,Klick mich an!,10,10,110,25)
setclasslong(test&,-12,LoadCursor(%hinstance,DRUCKER))
exit& = Create(Button,%HWnd,Beenden,10,50,110,25)
setclasslong(exit&,-12,LoadCursor(%hinstance,DRUCKER))
i% = 1
whilenot e%
Waitinput
if GetFocus(exit&)
e% = 1
elseif Clicked(test&)
if i%
setclasslong(%HWnd,-12,65553)
setclasslong(exit&,-12,65553)
setclasslong(test&,-12,65553)
SetText %HWnd,Noremaler Mauscursor
clear i%
else
setclasslong(%HWnd,-12,LoadCursor(%hinstance,DRUCKER))
setclasslong(exit&,-12,LoadCursor(%hinstance,DRUCKER))
setclasslong(test&,-12,LoadCursor(%hinstance,DRUCKER))
SetText %HWnd,Drucker als Mauscursor
i% = 1
endif
endif
endwhile
end
Saluto
Dietmar |
|
| |
| Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]  Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 05.01.2008 ▲ |
|
| |
|
(2.374)
Jawoll ! 
Deutsch
English
Français
Español
Italia