Localiza comp. dentro do FORM, e aplicar propriedades

Delphi

22/12/2003

Gostaria de localizar um componente por nome dentro de FORM, e aplicar propriedades nele...

Detalhe ele poder ser qualquer tipo de componente



T+
Dimmy :roll:


Dimmy

Dimmy

Curtidas 0

Respostas

Tnaires

Tnaires

22/12/2003

Olá dimmy

Um formulário tem duas propriedades bastante úteis: ComponentCount e Components. Vc pode fazer um laço for para localizar seus objetos. Assim:
procedure IsInstanceOf(form: TForm; comp: TComponent): boolean;
  var i: integer;
begin
  for i := 0 to form.ComponentCount - 1 do
    if form.Components[i] = comp then
      Result := true
    else
      Result := false;
end;

Veja se dá certo. Feliz Natal, ho ho ho...


GOSTEI 0
Tnaires

Tnaires

22/12/2003

Ops, detalhe: não é procedure, é [u:81de469b6e]function[/u:81de469b6e].


GOSTEI 0
Adriherbal

Adriherbal

22/12/2003

Como localizar Componente dentro do form e mudar propriedade, mas quando o componente estiver dentro num panel, ou PageControl, ou GroupBox?


GOSTEI 0
Woinch

Woinch

22/12/2003

Adicione nessa função a seguinte cláusula, por exemplo:

if (comp.Parent is TPanel) then
  //Está dentro de um Panel.



GOSTEI 0
POSTAR