Ir para conteúdo
  • Cadastre-se

dev botao

Travar Formulário


Ver Solução Respondido por Daniel Simoes,
  • Este tópico foi criado há 2583 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa noite,

Estou migrando projetos em Delphi para Lazarus, e me deparei com algo que creio ser simples, porém não consegui fazer. Em Delphi eu consigo deixar o formulário com borda bsSingle e de duas formas diferentes travar que ele seja arrastado pela tela, ou pelo align alcustom, ou ainda colocando no create do forma a função deletemenu. No Lazarus para Windows, somente a opção no create do formulário funcionou, o alcustom não fez nada, já em Lazarus na versão Linux (Ubuntu), não consegui de nenhuma maneira. Alguém poderia me informar ou dar alguma dica de como fazer?

Valeu.

signature_mateus_penha_acbr.fw.png

 

 

Link para o comentário
Compartilhar em outros sites

  • Fundadores

Porque não mudar o TForm.BorderStyle ?

  TFormBorderStyle = (bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin);

  Form1.BorderStyle := bsSingle;

 

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Consultores
Em 20/02/2017 at 22:11, Mateus Penha disse:

ou pelo align alcustom

Isso é estranho...

Em 20/02/2017 at 22:11, Mateus Penha disse:

ou ainda colocando no create do forma a função deletemenu

Não achei que fosse funcionar isso. É específico do Windows

Tem mais dois modos aqui:

http://delphidabbler.com/tips/187

Mas também acho que sejam específicos pro Windows. Não sei como essa questão é tratada no Ubuntu.

E sinceramente, eu reveria essa sua necessidade. Acho muito invasivo um programa que gera uma janela que não pode ser movida pra lugar nenhum.

 

EDIT:

Numa pesquisa mais abrangente achei o seguinte: http://stackoverflow.com/q/31830247/460775

  1. Criar a janela sem bordas (BorderStyle: bsNone). Não testei... Não sei se funciona... :S

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Fundadores
  • Solution
6 horas atrás, Mateus Penha disse:

Então com bsSingle não consegue redimensionar o form, isso eu já uso, o que quero é travar que ele seja arrasado, com bsSingle, continua a possibilidade de arrastar o form.

Deixe com " bsNone", e simule uma borda no formulário...

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

Boa Noite,

Obrigado pelo auxilio e sugestões, realmente não consegui com nenhum método fazer funcionar o travamento do formulário no Linux, creio que somente fazendo a tratativa de jogar ele dentro de um "container" sem borda ou algo do tipo.

Mesmo assim agradeço toda ajuda e tempo dispensado.

signature_mateus_penha_acbr.fw.png

 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2583 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.