Manter o form na posição definida

Delphi

21/05/2004

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


Deza.re

Deza.re

Curtidas 0

Respostas

Cebikyn

Cebikyn

21/05/2004

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;



GOSTEI 0
Rafael.valler

Rafael.valler

21/05/2004

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;


GOSTEI 0
POSTAR