Nochmal Prozeduren Events zuweisen...

[Char]

Ich werde das mal ausführlich erläutern :

Ich habe das Hauptformular "FMain" in der Unit "UMain.pas". Es enthält eine Prozedur names "OverviewClick".
Die Unit bzw. die Klasse "TFMain" verwendet eine weitere Klasse, die in der Unit "UShapeControl.pas" gespeichert ist, um mehrere zusammengehörige Shape-Komponenten zu verwalten.

Delphi-Quellcode:

unit UMain

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, JPEG, UShapeControl, UTypes;

type
TFMain = class(TForm)
{...}
   private
    procedure OverviewClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    {...}
end;

var
  FMain: TFMain;
  OverviewShapes: TShapeControl;

implementation

procedure TFMain.OverviewClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
{...}
end;

{...}

end.

Die Unit der Klasse TShapeControl sieht so aus:

Delphi-Quellcode:

unit UShapeControl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, UTypes;

type

TShapeControl = class
  private
    FShapeArray: array of TShape;
    {...}
  public
    constructor Create(howMany,iWidth,iHeight: integer;
                       ParentObj: TWinControl = nil;
                       ClickProcedure: TClickProcedure = nil);
    {...}
end;

implementation

constructor TShapeControl.Create(howMany,iWidth,iHeight: integer;
                                 ParentObj: TWinControl = nil;
                                 ClickProcedure: TClickProcedure = nil); { <- stimmt das so? }
var i: integer;
begin

inherited Create;

SetLength(FShapeArray, howMany);

for i:=0 to high(FShapeArray) do
  begin
    FShapeArray[i] := TShape.Create(nil);

    with FShapeArray[i] do
     begin
      parent := ParentObj;
      height := iHeight;
      width  := iWidth;
      left   := 0;
      top    := 0;
      brush.style := bsClear;
      pen.style   := psClear;
      onMouseDown := ClickProcedure;  // <- Die dem Constructor übergebene Prozedur soll onMouseDown zugewiesen werden
      Hide;
     end;
  end;
end;

{...}

end.

Der Aufruf in der Unit UMain.pas sieht folgendermaßen aus:

Delphi-Quellcode:

// UMain.pas

OverviewShapes := TShapeControl.create(10,10,10,PMap,OverviewClick); { <- OverviewClick ist wie oben gesagt der Name der aufzurufenden Prozedur }

Dann gibt es noch die Unit "UTypes.pas", in der der quasi Prozedurentyp deklariert ist. Sie wird in UShapeControl.pas und UMain.pas verwendet. Das muss glaub ich so sein, sonst würde ja der "Undefinierter Bezeichner"-Fehler kommen :

Delphi-Quellcode:

unit UTypes;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TClickProcedure = procedure(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

implementation

end.

Das funktioniert aber hinten und vorne nicht mit der Prozedurübergabe...

Ich weiß nicht wo evtl. diese "@" hinmüssen oder irgendwo hinter eine Prozedur "of object" oder was auch immer.

Ich hoffe das war verständlich und ihr könnt mir helfen