Fórum form fixo #234672

27/05/2004

0

Delphi

ae pessoal..

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


Zumbi

Zumbi

Responder

Posts

27/05/2004

Cbier

Colega,

Como alternativa, tire as bordas do form.

Mude as seguintes propriedades:

Borderstyle:= bsNone
Position:= poScreenCenter

Creio que isso resolve.

CBier


Responder

Gostei + 0

27/05/2004

Zumbi

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


Responder

Gostei + 0

27/05/2004

Cebikyn

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.


Responder

Gostei + 0

27/05/2004

Zumbi

valeww. funcionou...


Responder

Gostei + 0

27/05/2004

Aroldo Zanela

Colega,

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar