Funktion in Komponente überschreiben

[skunker]

Hallo,

ich hab ein Panel gebastelt auf dem ich mehrere Images drauflege.

Das ist meine Komponente.

Wie kann ich in der Komponente auf das OnClick Ereignis eines Images reagieren ?


Danke!

mfg
skunker.

[SirThornberry]

du musst einfch den Images eine OnClick-Methode zuordnen.

[skunker]

hmm und wie mach ich das ?


ich hab ne funktion erstellt:

imageclicked();


und beim constructor

meinimage.OnClick:=imageclicked();

hinzugefügt nur sagt er mir:

Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'

wo ist das Prob?

[SirThornberry]

eine OnClick-Procedure ist vom Typ TNotifyEvent und das ist wie folgt definiert:

Delphi-Quellcode:

TNotifyEvent = procedure(Sender: TObject) of Object;

Das heißt deine Procedure muss einen Parameter vom Typ TObject haben und eine Procedure eines Objectes sein. z.B.:

Delphi-Quellcode:

procedure TDeineKlasse.ImageClicked(Sender: TObject);

Und beim zuweisen musst du die klammern dann weg lassen:

Delphi-Quellcode:

meinimage.OnClick:=imageclicked;

[turboPASCAL]

zB. so:

Delphi-Quellcode:

interface

uses
  Windows,...;

type
  TForm1 = class(TForm)
    Image1: TImage;
  private
    { Private-Deklarationen }
    procedure onMyImgClick(Sender: TObject); // <---<<<
  public
    { Public-Deklarationen }
  end;

//...

implementation

//...

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.OnClick := onMyImgClick;
  //...
end;

procedure TForm1.onMyImgClick(Sender: TObject);
begin
  // to do
end;

[skunker]

ah Ok Danke. :)