(Resolvido) Mover form fsMDIChild pelo DBGrid

[Douglas Soares]

Boa tarde... tenho um dbgrid ajustado para ocupar todo um form... gostaria de desativar a barra de caption desse form e poder move-lo através desse DBGrid... já tentei de todas as formas desativat o caption e não deu certo :angry: .... alguém pode me ajudar?

Obrigado

[Douglas Soares]

Consegui, vlw!

[Douglas Soares]

Segue a dica pra quem quiser mover um form fsMDIChild pelo DBGRID:

Adicione essa procedure em Private :

procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHitTest;

depois coloque essa procedure depois de implementation

procedure Tform1.WMNCHitTest(var Msg: TWMNCHitTest);
 begin
    inherited;
    if Msg.Result = htClient then Msg.Result := htCaption;
 end;

Outra coisa, fazendo dessa forma você só poderia move-lo se tivesse clicando no form... como eu tenho um DBGrid no form inteiro eu preciso "enganar o sistema", é simples, basta ir no evento OnMouseDown do DBGrid ou de qualquer outro componente e adicione isso:

ReleaseCapture;
SendMessage(Self.Handle, WM_SYSCOMMAND, 61458, 0);

Abraços