Seite 1 von 2
Randloses Fenster verschieben
Verfasst: 30.09.2008 15:28
von Anfänger
Wie kann ich ein Fenster ohne Rand verschieben? hab schon irgendwas in der art aus nem Code 'geklaut' aber dann konnte ich kein #WM_LBUTTONDOWN mehr verwenden... vielleicht etwas einfaches mit Sendmessage u. HTCAPTION... bitte beachten das ich leider noch PB 3.3 habe, aber irgendwann in naher zukunft wird sich das ändern, muss blos sparsam sein mit meinen 14 jahren^^
Verfasst: 30.09.2008 15:53
von Andesdaf
ResizeWindow(#win,x,y,w,h)
Verfasst: 30.09.2008 15:54
von kswb73
Bewegen kannst du dein Fenster ganz einfach mit MoveWindow(X,Y).
Andesdaf hat geschrieben:ResizeWindow(#win,x,y,w,h)
Gibt's bei 3.3 noch nicht.
Verfasst: 30.09.2008 15:59
von Andesdaf
kswb73 hat geschrieben:Gibt's bei 3.3 noch nicht.
Upps
, 'tschuldigung. Hatte noch nie 3.3 erst 4.0 und deshalb bin ich mit MoveWindow nicht vertraut.
RE
Verfasst: 30.09.2008 16:31
von Anfänger
Ah sry, hab die Frage falsch formuliert
ich meine das man das Fenster dann mit der maus verschieben kann^^
^^
Verfasst: 30.09.2008 16:38
von Anfänger
Danke, genau das hab ich gesucht, aber auch danke an die anderen beiden, für die mühe^^
Edit: lol? wo ist die 3. antwort hin?
Verfasst: 30.09.2008 16:40
von Andesdaf
Wem dankst du denn?
//edit: War da noch eine?
Verfasst: 30.09.2008 16:47
von Anfänger
[/img][/url]
Verfasst: 30.09.2008 17:10
von kswb73
Hab man was gecoded was dir hoffentlich hilft. Wenn du mit der linken Maustaste in's Fenster klickst kannst du es bewegen. (Zum beenden einfach über PureBasic beenden).
Code: Alles auswählen
X=200
Y=200
#BigX=300
#BigY=300
OpenWindow(1,200,200,#BigX,#BigY,#PB_Window_BorderLess,"Linke Maustaste zum verschieben")
Structure point
X.l
Y.l
EndStructure
Mouse.point
lastMouse.point
Repeat
lastMouse\X=Mouse\X
lastMouse\Y=Mouse\Y
GetCursorPos_(Mouse)
MoveX=lastMouse\X-Mouse\X
MoveY=lastMouse\Y-Mouse\Y
If GetAsyncKeyState_(#VK_LBUTTON)
MouseL+1
Else
MouseL=0
Scroll=0
EndIf
If Mouse\X>X And Mouse\X<X+#BigX And Mouse\Y>Y And Mouse\Y<Y+#BigY And MouseL=1
scroll=1
EndIf
If Scroll
X-MoveX
Y-MoveY
EndIf
MoveWindow(X,Y)
WEvent=WindowEvent()
ForEver
Sollte Fehlermeldungen kommen bezüglich der 3.3 melde dich bitte. Ich hab hier nämlich nur die Anleitung und nicht PureBasic 3.3.
[/Edit]Kennt jemand zufällig eine API um zu ermitteln ob das Fenster aktiv ist?
Verfasst: 30.09.2008 17:11
von Kiffi
<halb-OT>
@Anfänger: Schreib bitte Deine PB-Version gut sichtbar in Deine Signatur.
Damit vermeidest Du überflüssige Postings.
</halb-OT>
Grüße ... Kiffi