| |
|
|
| |
|
| |
|
|
|
Michael Wodrich | Trotz aussagefähigem Titel pourrait là calme un peu Text pour den Débutant stehen. Schließlich volonté qui Snippets oui plutôt pas vom Profi comme viel plus vom Débutant genutzt - et qui peux hiermit gar rien anfangen.
Sorry belle Grüße Michael Wodrich |
|
|
| Programmieren, das spannendste Detektivspiel der Welt. | 05.01.2008 ▲ |
|
|
|
|
| |
|
| |
|
|
|
Frank Abbing | Zumindest devrait du qui -12 comme Konstante angeben. |
|
|
| |
|
|
|
Dietmar Horn | @Michael: dans qui Zeit, dans qui Du Dein Posting geschrieben la hâte, hättest Du hierfür sicherlich aussi un Demo zusammengetippelt.
ici un Beispiel: KompilierenMarqueSéparationDEF 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
Salut 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 ▲ |
|
|
|