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;