bonsoir, je débute sur delphi 10.3, et je désire créer des composants en dynamique, avec des propriétés et éventements dédiés.
Pour les proprités, cela fonctionne. En revanche pour les événements, "OnDragOver" résiste en indiquant que les listes de paramètres diffèrent, entre l'événement initial et la procédure que je cherche à déclencher. Pourtant les listes de paramètres me semblent identiques.
Sur mon bout de programme test, le "OnClick" est ok, mais pas le "OnDragOver", qui doit modifier théoriquement la taille du bouton.
et qui ne fonctionne pas. (désactivée par "//" comme devant).
Merci pour vos idées si cela vous saute au yeux?...


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
unit clic_et_entrer;
 
interface
 
uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
   jpeg, Vcl.Imaging.pngimage, Vcl.ExtCtrls, Vcl.StdCtrls ;
 
 
type
  TForm7 = class(TForm)
 
      procedure monclic (sender : tobject);
 
      procedure mondragover (sender, source : tobject; X,Y : integer;
                              state : tdragstate; accept : boolean);
    procedure FormClick(Sender: TObject);
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form7: TForm7;
           var monbouton : tbutton;
 
implementation
 
{$R *.dfm}
 
          procedure tform7.monclic (sender : tobject);
            begin
              showmessage (' je clique');
 
            end;
 
          procedure tform7.mondragover (sender, source : tobject; X,Y : integer; state : tdragstate ; accept : boolean);
              begin
                monbouton.Height := 30;
              end;
 
 
 
 
 
 
procedure TForm7.FormClick(Sender: TObject);
begin
       with monbouton do
                 begin
         monbouton := tbutton.Create (form7);
           parent:= form7;
                      height:= 300;
                      width := 150;
                      top := 50;
                       monbouton.OnClick := monclic ;
                      // monbouton.OnDragOver := mondragover;
 
                 end;
 
end;
 
 
end.