Bonjour,

j essai de publier une nouvelle Events et une nouvelle property dans un TFrame mais rien apparait dans mon insperteur d'objet de la Form1 sur lequel est déposé la tframe en question !!!

Bien attendu, j'ai essayer de redemarrer delphi mais sans succes.

Est ce qu'il y a une exception spécial pour les TFrame ?

voici mon code:

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
 
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls;
 
type
 
  TFrame2 = class(TFrame)
    cbPeriode: TComboBox;
    cbTime: TComboBox; 
    procedure cbPeriodeMouseEnter(Sender: TObject);
    procedure cbTimeMouseEnter(Sender: TObject);
 
  private
    fNumber   : Integer;
    FDTChange : TNotifyevent;
  public
  published
    property OnDTChange : TNotifyEvent read FDTChange write FDTchange;
    property MyNumber : integer read FNumber write FNumber;
  end;
 
implementation
 
{$R *.dfm}
 
procedure TFrame2.cbPeriodeChange(Sender: TObject);
begin
  if Assigned(FDTChange) then  FDTChange(Self);
end;
procedure TFrame2.cbTimeChange(Sender: TObject);
begin
  if Assigned(FDTChange) then  FDTChange(Self);
end;
 
 
 
end.