eigene Unit - Aufruf ändern

[Ines]

Hallo Delphi-Fans,

ich habe 2 Programme, die beide eine primitive Zeichenfunktion beinhalten.

Um Änderungen immer in beiden Exe-Files zu haben, habe ich den Code der Zeichenfuntion in eine eigene Unit ausgelagert.

Nun meine Frage: Gibt es die Möglichkeit die Prozeduren in der neuen Unit so zu verändern/manipulieren, daß ich sie im Objektinspektor direkt aufrufen kann?

Momentan sieht mein Aufruf folgendermaßen aus:

Delphi-Quellcode:

procedure TFrm_Bildbearbeiten.Image2MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: integer);
begin
  Image2MouseMove_Aufruf(Sender, Shift, x, y);
end;

Die Parameter werden einfach nur "weitergereicht".

Vielen Dank für Eure Hilfe
Mit freundlichen Grüßen
Ines

[freak4fun]

Delphi-Quellcode:

...

MyForm.Image1.Image1MouseMove := MyImageOnMouseMove_Aufruf;

...

Den Eventhandler einfach zuweisen. Dafür muss die Parameterliste identisch sein. :)

MfG
freak

[Ines]

Hallo Freak,

kannst Du mir bitte auch verraten, an welcher Stelle in meinem Programm ich die Zuweisung machen muß?

Zitat:

Den Eventhandler einfach zuweisen. Dafür muss die Parameterliste identisch sein.

Danke
Ines

[freak4fun]

Hm... eigentlich egal. Ich würde es beim Image.Create machen, falls es dynamisch erstellt wird. Sonst im FormCreate oder so. Jedenfalls bevor du den Eventhandler des bildes aufrufst. :)

MfG
freak

[marabu]

Hallo Ines,

Zitat:

Zitat von Ines

...
Gibt es die Möglichkeit die Prozeduren in der neuen Unit so zu verändern/manipulieren, daß ich sie im Objektinspektor direkt aufrufen kann? ...

da der event handler als procedure of object implementiert werden muss, kannst du den Object Inspector bei Auslagerung des Codes in eine Unit nicht mehr für die Zuweisung verwenden.

Ich würde die $INCLUDE-Direktive verwenden:

Delphi-Quellcode:

procedure TFrm_Bildbearbeiten.Image2MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: integer);
begin
{$I ImageMouseMove.pas};
end;

Schönes Wochenende