GARANTIR DESCONTO

Fórum Redimensionar Form #233400

20/05/2004

0

Sei que é besteira mais não estou encontrando a propriedade que bloqueia o redimensionamento da tela.

Que impedir que o usuarios chegue com o mouse nos cantos da tela e aumente, qual é a propriedade que tira este direiro?


Wgm8

Wgm8

Responder

Posts

20/05/2004

Cebikyn

É a propriedade BorderStyle.

BorderStyle = bsSingle ou bsToolWindow

Tem tb uma outra que controla o tamanho máximo e mínimo do form, que é a Constraints.


Responder

Gostei + 0

21/05/2004

Henry

Eu nem ia posta por que sei que quando o Cebis fala ta falado, mas eu uso a propiedade AutoSize....Form1.autosize:= true. Num e melhor Cebis?


Responder

Gostei + 0

21/05/2004

Cebikyn

Não. Autosize=true ainda exibe as setas de redimensionamento, apesar de realmente bloquear o redimensionamento do form (se o usuário tentar usar as setas que aparecem, o form se move, e para usuários inesperientes, isso vai parecer um comportamento anormal). E se o programa precisar redimensionar via código (tipo Width := 100;), o Autosize vai barrar, sem contar que Autosize não permite que vc deixe espaços em branco nas bordas do form (eu por ex deixo sempre uns 8px), podendo dar uma impressão de que os componentes estão todos amontoados.


Responder

Gostei + 0

21/05/2004

Cabelo

Caros Colegas, quando vc muda a propriedade border style, vc perde alguns recursos bons para o seu form, o que vc pode usar é uma função que limita o tamanho do form, usando a propriedade contraints (trava o tamanho máximo ou mínimo do Form) :

procedure P_Constraints(l_form : TForm; l_heigth, l_width : integer);
begin
l_form.BorderIcons := [biSystemMenu];
l_form.Constraints.MaxHeight := l_heigth;
l_form.Constraints.MinHeight := l_heigth;
l_form.Constraints.MaxWidth := l_width;
l_form.Constraints.MinWidth := l_width;
end;

onde : l_form = form que vc quer controlar o tamanho;
l_heigth =altura inicial do form;
l_width = largura Inicial do Form;

Espero ter ajudado..

Sem mais

Cabelo


Responder

Gostei + 0

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

Aceitar