Discussion :

[LescureImage]

Bonjour,

J'ai besoin d'un objet saisissable qui soit transparent, les TLabels sont transparents mais on ne peut pas les utiliser pour entrer du texte, et les objets saisissables ne semblent pas être transparents.

Je dispose d'ailleurs d'une bibliothèque LMDTools, qui contient un TLMDEdit, qui possède une propriété Transparent mais que ne semble pas fonctionner quand on la coche il n'y a pas de transparence visible, le fond reste de la couleur prédéfinie (blanc , ..).

Merci d'avance.

[yvslms]

Vous avez essayé en modifiant les feuilles de styles ?

[Crayon]

Salut, pour changer la couleur de tous les TEdit de ma Form qui sont dans un TPanel, j'utilise ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    System::Uitypes::TColor BackgroundColor = StyleServices()->GetStyleColor(TStyleColor::scPanel);
    for(int i = 0; i < ComponentCount; ++i)
    {
        if(Components[i]->ClassNameIs("TEdit") == true)
        {
            TEdit *Edit = static_cast<TEdit *>(Components[i]);
            Edit->ReadOnly = true;
            Edit->BorderStyle = TFormBorderStyle::bsNone;
            Edit->Color = BackgroundColor;
            Edit->StyleElements = TStyleElements() << seFont;
        }
    }

Cela aura pour effet de faire un TEdit transparent:


Bien-sûr tu peux utiliser un autre TStyleColor si tes contrôles ne sont pas dans un TPanel: http://docwiki.embarcadero.com/Libra...es.TStyleColor