onClick behandlung für dynamisch erzeugte objekte

[Käthe]

wie definiere ich die onclick behandlungsroutine für dynamisch erzeugte TImage-objekte?

käthe
p.S.: is dringend für die schule!

[Dax]

Du schreibst eine Routine für ein noch nicht existirendes Objekt und später gibst du dem TImage die methode mit TImage.OnClick := OnCLickMethod .

[Nothine]

Zitat von Dax:

TImage.OnClick := OnCLickMethod .

ich weiß nicht ob sich das in neueren delphi-versionen geändert hat, aber in delphi 5 führte sowas noch zu einer compiler-fehlermeldung dieser kategorie hier:
[Fehler] Unit1.pas(36): Inkompatible Typen: Methodenzeiger und reguläre Prozedur
@TImage.OnClick := @OnClickMethod; // keine direkte Zuweisung sondern kopieren der Speicheradresse oh und btw: herzlich willkommen in der DP @Käthe

[Christian Seehase]

Moin Nothine,

Zitat von Nothine:

ich weiß nicht ob sich das in neueren delphi-versionen geändert hat, aber in delphi 5 führte sowas noch zu einer compiler-fehlermeldung dieser kategorie hier:

nicht, wenn Du das als Methode deklarierst:

Delphi-Quellcode:

procedure TForm1.MyOnClickProc(Sender: TObject);
begin
  // was auch immer beim Klicken passieren soll
end;

TImage.OnClick := MyOnClickProc; Deine Methode würde zwar auch funktionieren, hat aber den Nachteil, das der implizite Parameter Self in der Prozedur dann nicht genutzt werden kann.

[SirThornberry]

@Nothine: Die von dir beschriebene Fehlermeldung kommt wie die Fehlermeldung schon sagt, wenn du dem "OnClick" eine normale Procedure zuweist. Verlangt wird eine Methode, die Proczedure muss also zu einer klasse gehören.

Der Fehler kommt bei

Delphi-Quellcode:

procedure meineProcedure(Sender: TObject);
begin

end;
[...]
MyImage.OnClick := meineProcedure;

da kommt der Fehler wenn onClick vom Type TNotifyEvent ist und da ist definiert das die Procedure vom Type Object ist (grund für die incompatibilität ist das der versteckte Selfparameter fehlt)

der Fehler kommt nicht bei

Delphi-Quellcode:

procedure TEineKlasse.meineProcedure(Sender: TObject);
begin

end;
[...]
MyImage.OnClick := InstanzeVonEINEKLASSE.meineProcedure;
//da das OnClick im normalfall innerhalb dieser Klasse zugewiesen wird reicht somit auch "MyImage.OnClick := meineProcedure;"

Es hat also nichts mit Delphi5 zu tun sondern damit das es sich tatsächlich um incompatible typen handelt (da der versteckte Self-Parameter bei der normalen Procedure fehlt)

[mirage228]

Alternativ geht es auch noch so

Delphi-Quellcode:

procedure Test(Self: TObject; Sender: TObject);
begin
  ShowMessage('!!');
end;

procedure TMyClass.AProc;
var
  FProc: TNotifyEvent;
begin
  TMethod(FProc).Code := @Test;
  TMethod(FProc).Data := Self;
end;

FProc darf jedoch keine Property sein!

mfG
mirage228

[Käthe]

hey

Jetzt ist's fast perfekt, bis auf ein paar schönheitsmakel.

Vielen Dank!!!!!

Käthe