Discussion :

[dragonno]

Dans la FAQ Delphi il y a cette astuce mais j'y comprend rien :/
Je voulais faire avoir un panel transparent mais je comprend pas cette astuce :/

Si votre contrôle possède une propriété Transparent, il suffit de positionner celle-ci à True.
Dans le cas contraire, vous devez dériver un nouveau composant à partir de celui-ci, surcharger la méthode CreateParams et intercepter le message WM_ERASEBKGND comme ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
type
  TConteneur = class(TScrollBox)
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    constructor Create(AOwner: TComponent); override;
    procedure CreateParams(var Params: TCreateParams); override;
    procedure WMEraseBkgnd(var Msg: TWMEraseBkgnd); message WM_ERASEBKGND;
  end;
 
procedure TConteneur.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := params.ExStyle or WS_EX_TRANSPARENT;
end;
 
procedure TConteneur.WMEraseBkgnd(var Msg: TWMEraseBkgnd);
begin
  SetBkMode(Msg.DC, TRANSPARENT);
  Msg.Result := 1;
end;

[Paul TOTH]

Le problème c'est que TCustomPanel.Paint fait un FillRect() donc tu as beau lui dire qu'il est transparent, il se dessine sur toute sa surface

[dragonno]

Ha merci de cette info j'en apprend sur Tpanel^^

Mais le problème principal c'est que je ne comprend pas la démarche de l'exemple parce que je ne suis pas habitué à la création d'un composant à partir d'un autre^^
J'essaie d'apprendre dans les cours que j'ai trouvé mais je comprend toujours pas :/
Surtout le truc des FValeurs qui se transforment en AValeurs ou je sais plus quoi.

Donc sinon y a pas moyen d'avoir un composant transparent du style de panel ou messageDlg ou autre ? c'est pour faire un message à ma façon.

[philnext]

Tu as un panel transparent dans la JVCL

[dragonno]

Ha merci PhilNext justement je dois l'installer ^^