Como mover um Form sem borda?

Delphi

23/10/2003

Oi de novo :D , possuo um form sem borda e com uma imagem de fundo, queria saber como faço pra arrastar o Form como faço clicando numa barra de título normal de qualquer programa.

Brigadão :lol:


Dead_thinker

Dead_thinker

Curtidas 0

Melhor post

Smaug_84

Smaug_84

23/10/2003

Faça o seguinte

no mousemove do form

ReleaseCapture;
PostMessage (form1.Handle, WM_SYSCOMMAND, $F012, 0) ;


isto ja deve deixar o usuario mexer nos componentes em tempo de run-time

faca o teste

$F001 -- ESQUERDA
$F002 -- DIREITA
$F003 -- SUPERIOR
$F004 -- SUPERIOR ESQUERDO
$F005 -- SUPERIOR DIREITO
$F006 -- INFERIOR
$F007 -- INFERIOR ESQUERDO
$F008 -- INFERIOR DIREITO

QUALQUE PARAMETRO ACIMA DE $F008 FAZ COM QUE O USUARIO PASSA MOVER O COMPONENTE


ESPERO TER AJUDADO


GOSTEI 1

Mais Respostas

Dead_thinker

Dead_thinker

23/10/2003

Brigadaum ai cara, serviu muito bem. Eu usei no Onmousemove da imagem já q ela cobria todo o Form. Peço só mais uma coisa, me explique esse código.
O q esse ReleaseCapture faz?
E Quer dizer q o que eu colocar em $F*** vai ser a direção para q posso mover o Form?? E q o $F012 move pra todas as direções??


Valew dnovo heehe :D

Obrigado pela paciência! :wink:


GOSTEI 0
Cebikyn

Cebikyn

23/10/2003

Do site da MS:
The ReleaseCapture function releases the mouse capture from a window in the current thread and restores normal mouse input processing. A window that has captured the mouse receives all mouse input, regardless of the position of the cursor, except when a mouse button is clicked while the cursor hot spot is in the window of another thread.



GOSTEI 1
Linus Debugger

Linus Debugger

23/10/2003

Valeu, me ajudou muito ^^.
GOSTEI 0
Wesley Yamazack

Wesley Yamazack

23/10/2003

Curti a solução :)= mt boa :)

[]'
GOSTEI 0
POSTAR