Name einer Prozedur an Prozedur übergeben

[Char]

Hallo,

Kann man den Namen einer Prozedur A einer bestimmten Prozedur B übergeben?

Also z.B. so:

Delphi-Quellcode:

procedure ProzedurB;
begin
{...}
end;

procedure ProzedurA(prozB: ???);    { <- ich suche das, was bei '???' stehen muss }
var Shape: TShape;
begin

 Shape := TShape.create;

 Shape.onMouseDown := prozB;

end;

Der Aufruf dann:

ProzedurA(ProzedurB); Es soll also die Prozedur, die in der Variablen prozB gespeichert ist, bei onMouseDown aufgerufen werden...

Danke schonmal...

[mirage228]

Delphi-Quellcode:

type
  TProzedurB = procedure(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);  // Shape onMouseDown sieht so aus!

procedure ProzedurB(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // mach was
end;

procedure ProzedurA(ProzB: TProzedurB);
begin
  // mach was
  // Shape erstellen...
  Shape.OnMouseDown := ProzB;
end;

// aufruf:
ProzedurA(ProzedurB);

mfg
mirage228

[Char]

Vielen Dank

[Char]

Ich habs endlich ausprobieren können, aber da kommt folgender Fehler:

[Fehler] USCtrl.pas(57): Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'

Und zwar in der Zeile, in der onMouseDown := ProzB steht...

Hilfe bitte!

[Christian Seehase]

Moin Char,

guckst Du hier:

prozedur aufruf und sender

Da hatten wir das Thema gerade recht ausführlich.

[woki]

Hi,

siehe OH

Prozedurale Typen

Um eine Methode eines Instanzobjekts zur referenzieren, muß dem Namen des prozeduralen Typs die Klausel of object hinzugefügt werden:

Delphi-Quellcode:

type

  TMethod = procedure of object;
  TNotifyEvent = procedure(Sender: TObject) of object;

Diese Typen stellen Methodenzeiger dar. Ein Methodenzeiger wird in Form zweier Zeiger codiert, von denen der erste die Adresse der Methode speichert. Der zweite enthält eine Referenz auf das Objekt, zu dem die Methode gehört. Ein Beispiel:

Grüsse
Woki

[edit=Daniel B]Delphi-Tags eingefügt. Mfg, Daniel B[/edit]