form fixo

Delphi

27/05/2004

ae pessoal..

tem como eu deixar um formulario fixo na tela
no meio da tela e que o user nao possa arrastalo?


Zumbi

Zumbi

Curtidas 0

Respostas

Cbier

Cbier

27/05/2004

Colega,

Como alternativa, tire as bordas do form.

Mude as seguintes propriedades:

Borderstyle:= bsNone
Position:= poScreenCenter

Creio que isso resolve.

CBier


GOSTEI 0
Zumbi

Zumbi

27/05/2004

eu gostaria que ficasse como eh um form normal mas soh que nao pudesse arrastalo pela tarja do caption....


GOSTEI 0
Cebikyn

Cebikyn

27/05/2004

Declare em Private o seguinte:

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


Depois em Implementation:

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

  inherited;
end;


Para deixar no meio da tela use a propriedade Position, como sugerido pelo CBier.


GOSTEI 0
Zumbi

Zumbi

27/05/2004

valeww. funcionou...


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

27/05/2004

Colega,

Tem mais alguns macetes aqui: http://delphiforum.icft.com.br/forum/viewtopic.php?t=6673


GOSTEI 0
POSTAR