fbpx

Movendo um Form sem barra de título

Movendo um Form sem barra de título

Forms que não possuem barra de título (as que têm a propriedade BorderStyle setada em bsNone)
podem ser movidas, através da rotina abaixo, que permite que se clique no form para poder mover a janela).

Primeiramente, vá na seção public da classe que define o form, e digite a linha abaixo:

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

Na seção implementation da unit, digite a seguinte rotina:

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

Compartilhe esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.