Manter o form na posi��o definida

Question

Oi pessoal . . h� um componente que mantenha o form no local pr�-definido endependentemente de sua posi��o na fase de desenvolvimento?  {}  Andreza...

Cebikyn · Answer

N�o precisa de componentes. Basta definir o seguinte (veja que a primeira linha � a se��o �private� de seu form):

private  
  procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

  {...}
implementation


procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  if ((Msg.CmdType and $FFF0) = SC_MOVE) then
  begin
    Msg.Result := 0;
    Exit;
  end;
  inherited;
end;

Depois, no OnCreate do form, voc� altera as coordenadas dele. Assim ele ficar� no lugar certo [color=red:c5c545c707][b:c5c545c707]i[/b:c5c545c707][/color:c5c545c707]ndependentemente da posi��o na fase de desenvolvimento:

porcedure TForm1.Form1Create(Sender: TObject);
begin
  Left := 100;
  Top := 100;
end;

Rafael.valler · Answer

componente eu n�o sei mas podes fazer assim:procedure TForm1.FormActivate(Sender: TObject);begin   with form1 do   begin      left:= 10;      top:= 10;   end;  end;...

F�rum Manter o form na posi��o definida #233689