0

Em jQuery conseguimos fazer referencia a um elemento da forma abaixo:

var tipo = "B";
$("#campoTipo"+tipo).val("Teste");

que seria o mesmo que:

$("#campoTipoB").val("Teste");

Preciso em Delphi, desabilitar alguns botões que dependem de uma Query

procedure TFormCupom.BitBtn3Click(Sender: TObject);
var
ponteiro: Integer;
painel: TPanel;  
begin
 DM.FDConexao.Connected := true;
 ponteiro := 0;
 with DM.FDQ_Recentes do
 begin
  close;
  sql.clear;
  sql.add('SELECT * FROM rotativo');
  open;
  First; // primeiro
  while not eof do
   begin
   inc(ponteiro);
   painel := FindComponent('Pn' + IntToStr(ponteiro)) as TPanel;
    if painel <> nil then
      painel.Visible := false;
      Next; // proximo
    end;
   end;
end;
9
  • Não consegui entender o porque da consulta ao banco de dados. O código não utiliza nenhum dado da query. Para saber porque o código não está funcionando é preciso saber como os TPanel foram criados e nomeados. O FindComponent retornará a referência ao Panel apenas se for o Owner do mesmo, e se Panel.Name estiver corretamente especificado. Commented 28/09/2017 às 18:57
  • Ricardo, os Panel são criados em tempo de design e ficam invisíveis. De acordo com a query eles ficarão visíveis ou não. Commented 28/09/2017 às 19:17
  • O nome de cada TPanel foi atribuído no Object Inspector (Pn1, Pn2, ...)? Quantos Panels há no form? Commented 28/09/2017 às 19:22
  • Sim. No Object Inspetor. Há vários mas os que preciso manipular são 7. Pn1... Pn7 Commented 28/09/2017 às 19:25
  • Ok. E o que vc lê da query para determinar qual panel será ativado? Commented 28/09/2017 às 19:47

2 Respostas 2

1

Assim você consegue pegar o elemento utilizando uma string, como no jquery:

var 
painel: TPanel;
painel := FindComponent('Pn' + IntToStr(ponteiro)) as TPanel;
if painel <> nil then  
    painel.Visible := not painel.Visible;
19
  • Deu um Exception Commented 24/09/2017 às 0:24
  • Você esta testando? É para conferir o código? Se o elemento que você quer pegar for um TPanel acredito que vá funcionar, para você fazer os teste de forma mais efetiva, coloque uma string de forma manual para pegar apenas 1 elemento, assim você já descarta qualquer outro problema que possa acontecer no while. Commented 24/09/2017 às 0:30
  • Exatamente é TPanel, estou testando para desabilitar e mesmo colocando manualmente da o erro. Commented 24/09/2017 às 0:33
  • Qual é a Exception? Commented 24/09/2017 às 0:33
  • Exception class $C0000005 with message 'c0000005 ACCESS_VIOLATION'. Commented 24/09/2017 às 0:36
0

Fiz um teste com esse código e funcionou: procedure TForm2.Button1Click(Sender: TObject); var panel: TPanel; ponteiro: integer; begin for ponteiro := 1 to 5 do begin panel := FindComponent('Pn' + IntToStr(ponteiro)) as TPanel; if Assigned(panel) then panel.Visible := True; end; end; Um possível problema seria se os panels não tivessem a propriedade name setadas como esperado (diferente da propriedade caption).

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .