Randloses Fenster verschieben

[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^^

[Andesdaf]

ResizeWindow(#win,x,y,w,h)

[kswb73]

Bewegen kannst du dein Fenster ganz einfach mit MoveWindow(X,Y).

ResizeWindow(#win,x,y,w,h)

Gibt's bei 3.3 noch nicht.

[Andesdaf]

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.

[Anfänger]

Ah sry, hab die Frage falsch formuliert

ich meine das man das Fenster dann mit der maus verschieben kann^^

[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?

[Andesdaf]

Wem dankst du denn?

//edit: War da noch eine?

[Anfänger]

[/img][/url]

[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?

[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