Discussion :

[Charly910]

Bonjour,

j'ai créé un TImg dérivé d'un TImage et je voudrais y ajouter une méthode dérivée de OnMouseDown. Mais étant très nul, je n'y arrive pas.

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
unit UClasses2;
 
interface
 
uses
  Windows,Classes, Graphics, Controls, ExtCtrls, VCL.Dialogs  ;
 
type
TImg=class(TImage)
 
private
  Fnom:string;
public
  Property Nom: string read FNom write FNom ;
  Constructor Create(AOwner: TComponent) ; override ;
  Procedure LoadFile(Sender : Tobject ; Fichier : String ) ;
  end;
implementation
{ =================================================================== }
constructor TImg.Create(AOwner: TComponent);
begin
  Inherited Create(AOwner);
  Nom := 'Unknow' ;
end;
{ =================================================================== }
Procedure TImg.LoadFile(Sender : Tobject ; Fichier : String ) ;
Var
  H, L : Integer ;
Begin
  (Sender As TImage).Picture.loadfromFile(Fichier) ;
  H :=  (Sender As TImage).Picture.Bitmap.Height ;
  L :=  (Sender As TImage).Picture.Bitmap.Width ;
  (Sender As TImage).Height := H ;
  (Sender As TImage).Width  := L ;
End;
{ =================================================================== }
End.

Quelqu'un peut il m'aider ?

Merci
A+
Charly

[Paul TOTH]

Je ne comprend pas le rapport entre la question posée et le code proposé...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
type
  TImg = class(TImage)
  protected    
   procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
  end;
 
procedure TImg.MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
begin
  inherited;
  ...
end;

[pprem]

de l'événement onMouseDown que tu as juste à déclarer ou de la méthode qui l'appelle ?

[Charly910]

Bonjour,

merci à tout les 2. Le code de Paul fonctionne bien. C'est pourtant ce que j’essayais de faire sans succès (Erreur : la méthode MouseDown cache une méthode virtuelle de TControl !)

A+
Charly