Fun��es para retornar o Name do componente

Question

Boa tarde Pessoal,Preciso simplificar uma opera��o, mas n�o estou conseguindo desenvolver a fun��o.Eu tenho 5 CheckBox e preciso que toda vez q o usuario marque este componente ele troque propriedade ...

Altingon · Answer

Aqui estou usando outro tipo de componente, mas a l�gica � essa

 for  i := 0 to TCVendas.ComponentCount - 1 do
    begin
      if TCVendas.Components[i] is TCustomEdit then
       (TCVendas.Components[i] as TCustomEdit).Clear;
    end;

Voc� percorre os formul�rio e pergunta se o componente em quest�o � do tipo que vc quer, se for vc faz os procedimentos.

Wagnermarrane · Answer

A ideia seria q a procedure abaixo execute a linha a partir da propriedade NAME do componente. Acho q estou tentando obrter alguma coisa e recebo outro na variavel.

procedure TFrmCadInscritosJE.MarcarClick(cNome: string);
begin
if cNome.Checked then
  begin
    cNome.Font.Color:=clred;
    cNome.Font.Style:=[fsbold];
  end
else
  begin
    cNome.Font.Color:=clBlack;
    cNome.Font.Style:=[];
  end;
end;

[b:dd3c832022]chamando a fun��o acima da seguinte forma[/b:dd3c832022]

procedure TFrmConfirmacao.GRClick(Sender: TObject);
begin
MarcarClick(�gr�); // passando NAME do componente.
end;

Lembrando q deve ser excutado no evento ONCLICK do componente.

Rodc · Answer

[code:1:02c2722ccd]procedure TFrmConfirmacao.GRClick(Sender: TObject); begin   if (Sender is TCheckBox) then    begin      with Sender as TCheckBox do        begin          if Checked then             begin               Font.Color:=clred;               Font.Style:=&#91;fsbold&93;;             end           else             begin               Font.Color:=clBlack;               Font.Style:=&91;&93;;             end;         end;    end;end;[/code:1:02c2722ccd]...

Wagnermarrane · Answer

[quote:be8249a8bb=�rodc�][code:1:be8249a8bb]procedure TFrmConfirmacao.GRClick(Sender: TObject); begin   if (Sender is TCheckBox) then    begin      with Sender as TCheckBox do        begin          if Checked then             begin               Font.Color:=clred;               Font.Style:=&#91;fsbold&93;;             end           else             begin               Font.Color:=clBlack;               Font.Style:=&91;&93;;             end;         end;    end;end;[/code:1:be8249a8bb][/quote:be8249a8bb]Vc esta executando dentro do evento OnClick eu preciso que execute dentro de uma fun��o para ser chamada no evento onclick do componente, tenho 40 componentes deste e e como todos v�o se comportar da mesma forma n�o gostaria de digitar tudo isso em cada componente....

Rodc · Answer

Fa�a o evento OnClick de todos os componentes apontar para esta fun��o.Selecione todos os componentes que deseja alterar, e coloque �GRClick� no campo OnClique deles....

Wagnermarrane · Answer

funcionou!!!!!!!muito obrigado pessoal[code:1:51eeb953b5]procedure TFrmCadInscritosJE.MarcarClick(sender: TObject);begin  if (Sender is TFlatCheckBox) then    begin      with Sender as TFlatCheckBox do        begin          if Checked then            begin              Font.Color:=clred;              Font.Style:=&#91;fsbold&93;;            end          else            begin              Font.Color:=clBlack;              Font.Style:=&91;&93;;            end;        end;    end;end;[/code:1:51eeb953b5]...

Altingon · Answer

Fiz rapidinho aqui para voc�... eu creio que seja isso:


procedure MarcarClick(checkbox: TCheckBox);  


procedure TForm1.MarcarClick(checkbox: TCheckBox);
begin
if checkbox.Checked then
  begin
    checkbox.Font.Color:=clred;
    checkbox.Font.Style:=[fsbold];
  end
else
  begin
    checkbox.Font.Color:=clBlack;
    checkbox.Font.Style:=[];
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
  for i:=0 to Form1.ComponentCount-1 do
  if Form1.Components[i] is TCheckBox then
    MarcarClick((Form1.Components[i] as Tcheckbox));
end;

Espero ter ajudado

Robson Fernandes · Answer

De acordo com a mensagem dele, ele precisa atribuir tamb�m ao m�todo OnClick de cada check box. Ent�o fa�a:

procedure TFrmConfirmacao.GRClick(Sender: TObject);
begin
if (Sender is TCheckBox) then
begin
with Sender as TCheckBox do
begin
if Checked then
begin
Font.Color:=clred;
Font.Style:=[fsbold];
end
else
begin
Font.Color:=clBlack;
Font.Style:=[];
end;
end;
end;
end;

procedure TFrmConfirmacao.FormCreate(Sender: TObject);
var i: Integer;
begin
// Caso voc� queira aplicar em todos os checkboxes do form
for i := 0 to Pred(Self.ComponentCount) do
if (Self.Components[i] is TCheckBox) then
TCheckBox(Self.Components[i]).OnClick := GRClick;

{
// Caso voc� queira que somente alguns checkboxes tenham essa
// rotina, voc� pode utilizar a propriedade Tag de cada checkbox para
// distinguir. Ex. Quem tiver a propriedade Tag = 1, atribuir o m�todo

for i := 0 to Pred(Self.ComponentCount) do
if (Self.Components[i] is TCheckBox) and (Self.Components[i].Tag = 1) then
TCheckBox(Self.Components[i]).OnClick := GRClick;

}

end;

Robson Fernandes · Answer

Esse tro�o n�o ficou indentado...Saco... :/...

Rodc · Answer

Robson, n�o precisa criar c�digo para isto, em DesignTime voc� pode colocar, pelo ObjectInspector mesmo, a propriedade OnClick de todos os componentes apontando para a mesma fun��o....

Robson Fernandes · Answer

[quote:f26e47aa87=�rodc�]Robson, n�o precisa criar c�digo para isto, em DesignTime voc� pode colocar, pelo ObjectInspector mesmo, a propriedade OnClick de todos os componentes apontando para a mesma fun��o.[/quote:f26e47aa87]Eu sei !Mas ele pode usar dessa maneira, caso ele queira criar, p. ex., checkboxes em run time.Certo ??!!...