Mega Code Archive

 

Categories / Delphi / VCL

 

How to retrieve the non transparent label with XPMan

Title: How to retrieve the non-transparent label with XPMan procedure TForm1.FormCreate(Sender: TObject); var Cpt: Integer; begin for Cpt := 0 to Self.ComponentCount - 1 do if (Self.Components[Cpt] is TLabel) then with (Self.Components[Cpt] as TLabel) do Transparent := not (Tag = 1); end;