Name einer Prozedur an Prozedur übergeben

[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