Reposicionando Componentes

Question

Como que eu poderia reposicionar os bot�es da tela, de acordo com os que poder�o aparecer no momento.

Isso para mostrar aos usu�rios aquilo que ele pode fazer de acordo com os seus poderes dentro do sistema.

Existe alguma forma de fazer isso, utilizando o tab order sei l�.

Demian Soares · Answer

acredito que vc queira habilitar ou desabilitar os botoes de acordo com o procedimento que se queira...

seguinte imaginemos que vc clicou no botao inclusao, neste momento o botao sair o botao excluir deveria estar desabilitado ou seja nao receber acao, vc deve no momento em que clicar no botao inclusao ou em outro evento a sua escolha deve desabilitar os demais botoes..

va ate a propriedade (enabled) do botao e mude sua propriedade para False, o botao ira mudar um pouco e nao recebera mais qq evento ate que vc volte a propriedade enabled para true...

� isso o que vc queria?...

Salupe · Answer

N�o � quest�o de habilitar ou desabilitar, � posi��o na tela mesmo, imagine que eu tenho 5 bot�es na tela que ocupam quase toda ela, e o 2� botao por o usu�rio n�o poder utiliz�-lo n�o aparecer�.
Eu queria que o 3� bot�o ocupasse o lugar do 2� o 4� o lugar do 3� e assim por diante.

Marconi · Answer

O que voce precisa fazer � uma Procedure para colocar os bot�es na tela.

Em vez da propriedade enabled use a visible

Procedure Tform1.desenhabotoes; {nem precisa parametros}
var esquerda:word; // supondo que os bot�es v�o da esquerda para direita
begin
esquerda:=50; {posi��o left do primeiro bot�o}
if button1.visible then begin
button1.left := esquerda;
esquerda := esquerda+button1.width+1;
end;
if button2.visible then begin
button2.left := esquerda;
esqueda:=esquerda+button2.width+1;
end;
.... e assim por diante at� quantos bot�es voce tiver;

end;

Se for de cima para baixo use a propriedade top e acrecente sempre height+1;

Marconi

Valberaguiar · Answer

Amigos, todos os componentes tem as propriedades: Visible e Top, certo?
Ent�o como eu fa�o para testar e redefinir essas propriedades passando componentes como parametro para uma fun��o?

Tipo:

procedure TForm1.ReposComp(Comp: TObject ou TComponent; var iPosi);
begin
If Comp.Visible=True Then Begin
Comp.Top:=iPosi;
iPosi:=iPosi+Comp.Height+5;
End;
End;

Valberaguiar · Answer

Amigos, todos os componentes tem as propriedades: Visible e Top, certo?
Ent�o como eu fa�o para testar e redefinir essas propriedades passando componentes como parametro para uma fun��o?

Tipo:

procedure TForm1.ReposComp(Comp: TObject ou TComponent; var iPosi);
begin
If Comp.Visible=True Then Begin
Comp.Top:=iPosi;
iPosi:=iPosi+Comp.Height+5;
End;
End;

F�rum Reposicionando Componentes #206250