Condi��o no Form

Question

Boa tarde,Eu quero por uma condi��o para aparecer alguns bot�es no form.Eu tenho um grid no form e se esse Grid tiver 1 ou mais registro no grid que apare�a os outros bot�es no form.Eu fiz inicialment...

Djfabioninja · Answer

Boa tarde Gomes! N�o sei se entendi muito bem o que vc quer, mas abaixo posto um exemplo pra exibir/ esconder speedbuttons de acordo com a condi��o de �registro > 1�

//No evento onShow do form, busco a quantidade de registros na tabela //atrav�s de uma ADOQuery e a partir disso, disponibilizo ou n�o os botoes:

if ADOQuery1.recordcount>0 then
begin
speedbutton1.visible:= true;
speedbutton2.visible:= true;
speedbutton3.visible:= true;
speedbutton4.visible:= true;
end
else
begin
speedbutton1.visible:= false;
speedbutton2.visible:= false;
speedbutton3.visible:= false;
speedbutton4.visible:= false;
end;

Espero ter ajudado...

Osocram · Answer

Eu uso o OnUpdate do ActionList para controlar esse tipo de evento....

Gomes451 · Answer

Vlw djfabioninjaDeu muito certo a diga que voce mim passo, no final fico assim.�beginBarra.Panels[1].Text:=IntToStr(Qadv.RecordCount);if Qadv.recordcount>0 thenbegin     speedbutton2.visible:= true;     speedbutton3.visible:= true;     speedbutton4.visible:= true; end   elsebegin    speedbutton2.visible:= false;    speedbutton3.visible:= false;    speedbutton4.visible:= false;end;end;�Osogram: Essa diga do OnUpdate n�o entendi muito n�o, se tiver como especificar mais eu agrade�o.ObrigadoGustavo...

Osocram · Answer

� o seguinte amigo.Pelo jeito vc n�o usa os componente ActionList.Vou tentar explicar aqui depois vc testa.Qdo vc usar o componente TActionList Vc cria um action la dentro com o nome acFechar e da 2 cliques nele e adiciona isso no evento (execute)[code:1:10659d972c]close;[/code:1:10659d972c]Adiciona um bot�o TBitBtn e na prop Action dele vc liga essa action que vc criou.Dae pronto... esse bot�o vai executar o Action qdo vc clicar.-----------------------------------------Tudo que expliquei ae em cima � p vc poder testar...agora vem aqui o que eu disse.no comp ActionList vai ter um evento OnUPdate, da 2 cliques neleEsse evento vai ser disparado praticamente toda hora que acontecer qq coisa no form. Ent�o � o local perfeito p fazer controles de tela.[code:1:10659d972c]acFechar.Enable := false;[/code:1:10659d972c]Esse codigo vai fazer q a a��o fique sempre desabilitada, repare que ligamos esta a��o com um bot�o, esse bot�o vai ficar enable false tbm.Espero ter conseguido explicar +- como utilizar este recurso... ele � mto util.Outra dica, em vez de usar assim:[code:1:10659d972c]if Qadv.recordcount>0 thenbeginspeedbutton2.visible:= true;speedbutton3.visible:= true;speedbutton4.visible:= true;endelsebeginspeedbutton2.visible:= false;speedbutton3.visible:= false;speedbutton4.visible:= false; [/code:1:10659d972c]fa�a assim:[code:1:10659d972c]speedbutton2.visible:= Qadv.recordcount>0;speedbutton3.visible:= Qadv.recordcount>0;speedbutton4.visible:= Qadv.recordcount>0; [/cod...

Emerson Nascimento · Answer

uma recomenda��o para os exemplos passados:

na solu��o, evite o uso de RecordCount. ele s� � indicado se voc� quiser saber exatamente quantos registros h� na tabela. para simplesmente saber se h� registros - independente de quantos - utilize IsEmpty.

Barra.Panels[1].Text := IntToStr(Qadv.RecordCount); // aqui, OK

agora, todas aquelas linhas podem ser substitu�das por:

speedbutton2.visible := not Qadv.IsEmpty; // n�o use RecordCount
speedbutton3.visible := speedbutton2.visible; // visibilidade igual ao speedbutton2
speedbutton4.visible := speedbutton2.visible; // visibilidade igual ao speedbutton2

Gomes451 · Answer

Bom dia,Obrigado pela dica de voc�s eu n�o sabia que seria t�o interessante entra em um f�rum como esse.Por isso que eu nunca usava.ObrigadoGustavo Gomes :D...

F�rum Condi��o no Form #373992