helldanger1
GForum VIP
- Entrou
- Ago 1, 2007
- Mensagens
- 29,631
- Gostos Recebidos
- 1
O código abaixo, que pode ser usado em qualquer componente que possua o evento OnMouseMove, serve para arrastar o formulário segurando pela área client. Interessante que podemos forçar o efeito drag até mesmo se o form estiver maximizado:
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if(Shift.Contains(ssLeft))
{
ReleaseCapture();
//Form1->WindowState = wsMaximized;
Perform(WM_SYSCOMMAND, 61458, NULL);
}
}
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if(Shift.Contains(ssLeft))
{
ReleaseCapture();
//Form1->WindowState = wsMaximized;
Perform(WM_SYSCOMMAND, 61458, NULL);
}
}