Discussion :

[Ludo_360]

bonjour

j'ai un problème lorsque je veux créer mon composant:

Mon composant de base est un TSpeedButton auquel j'aimerais rajouter une couleur... J'ai bien créé mon composant, je déclare color en propriété, mais la couleur ne change jamais, comme s'il n'avait guardé que les propriétés du composant de base... Je sais pas trop comment faire, voici le code, surment faux ..

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
unit SpeedButton1;
 
interface
 
uses
  SysUtils, Classes, Controls, Buttons;
 
type
  TSpeedButton1 = class(TSpeedButton)
  private
    { Déclarations privées }
  protected
    { Déclarations protégées }
  public
    { Déclarations publiques }
  published
    { Déclarations publiées }
  published
    { Déclarations publiées }
    property Action;
       property AllowAllUp;
       property Anchors;
       property BiDiMode;
       property Caption;
       property Color;
       property Constraints;
       property Cursor;
       property Down;
       property Enabled;
       property Flat;
       property Font;
       property Glyph;
       property GroupIndex;
       property Height;
       property HelpContext;
    property HelpKeyword;
       property HelpType;
       property Hint;
       property Layout;
       property Left;
       property Margin;
       property Name;
       property NumGlyphs;
       property ParentBiDiMode;
       property ParentFont;
       property ParentShowHint;
       property PopupMenu;
    property ShowHint;
       property Spacing;
       property Tag;
       property Top;
       property Transparent;
       property Visible;
       property Width;
       property OnClick;
       property OnMouseDown;
       property OnMouseMove;
       property OnMouseUp;
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('Exemples', [TSpeedButton1]);
end;
 
end.

merci pour vos conseils

[sjrd]

Ton code n'est pas faux, il est vide Je ne comprends pas du tout ce que tu as essayé de faire

Voici un tutoriel sur la création de composants, au cas où.
Et pour ton code, utilise les balises [code], pas les balises [quote]

[Ludo_360]

Ou je peux trouver l code du composant de base?

[Thierry Laborde]

En fait si j'ai bien compris ce que tu as fait. Tu as simplement récréer un composant en le dérivant de TSPeedButton et en rajoutant la propriété Tcolor qui n'y est pas dans le SpeedButton.
Ceci explique donc que la création de ton composant soit vide. Malheureusement ce serait trop simple si il suffisait de faire ça pour avoir la couleur sur le TSpeedButton.
C'est à toi de coder la partie qui va mettre en couleur le bouton. Et pas simplement mettre la propriété Color.

Si tu veux tu peux t'inspirer de ce code dans la FAQ :

http://delphi.developpez.com/faq/?pa...couleurtbutton

[Ludo_360]

Ou je peux trouver l code du composant de base??


merci d'avance je sature la

[Fabrice ROUXEL 1]

Soit tu suis les liens et les conseils qui t'ont été dispensé, soit tu n'as vraisemblablement pas le niveau et tu abandonnes la création de composants!