ActiveDelphi

Warfighter · Enviada: Ter Set 08, 2009 10:16 pm Assunto: Mover Form por qualquer lugar ?

Como faço para mover o Form do delphi não só pela borda e sim pelo campo todo que eu pegar ?

johnny-walker · Enviada: Ter Set 08, 2009 11:50 pm Assunto:

eis aih...

http://www.activedelphi.com.br/forum/viewtopic.php?t=48225&highlight=htcaption

bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

Warfighter · Enviada: Qua Set 09, 2009 4:03 pm Assunto:

Vi o código mais não entendi como usalo

pode me dizer como faço para usa-lo ?

até +

joenet · Enviada: Qui Set 10, 2009 1:47 pm Assunto:

Deixa eu tentar ajudar...
primeiramente você vai declarar o procedure:
WMNCHitTest(var M: TWMNCHitTest); message WM_NCHITTEST; na área Private; Depois você deve implementá-lo (famoso Ctrl+Shift+C), colocanco o seguinte código:
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
if (M.XPos>=Left + Left) and (M.XPos<Left>=Top + Top) and (M.YPos<=Top + Top + Height) then
M.Result := htCaption;
end;

Avisa aê se não conseguir / entender.
Abraço.

Warfighter · Enviada: Qua Set 16, 2009 7:34 pm Assunto:

[Error] Unit1.pas(13): ',' or ':' expected but '(' found
[Error] Unit1.pas(13): ';' expected but ')' found
[Error] Unit1.pas(13): ',' or ':' expected but identifier 'WM_NCHITTEST' found
[Error] Unit1.pas(13): ',' or ':' expected but ';' found
[Error] Unit1.pas(16): ',' or ':' expected but 'END' found
[Error] Unit1.pas(21): '.' expected but 'IMPLEMENTATION' found
[Hint] Unit1.pas(13): Private symbol 'WMNCHitTest' declared but never used
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Ocorreu os seguintes erros

O que Fazer ?

joenet · Enviada: Qui Set 17, 2009 8:29 am Assunto:

Provavelmente você esqueceu de um monte de coisa. Confiou no ctrl+c, ctrl+v hein? Bem, eh isso aê...