Ereignisse aus einer Datenmodule Komponente

Computer: Software & Programmierung Delphi & Pascal
#1

In einem Datenmodul verwende ich einen ADOTable, den ich in unterschiedlichen Formularen verwende. In einem der Formulare ist der aktuelle Datensatz des ADOTables mit DBEdit Controls verbunden. Ich möchte nun erkennen, wenn am Datensatz etwas geändert wird (wie bei der DBNavigator Komponente) und möchte auf Ereignisse des ADOTables reagieren. Die Ereignisroutinen dazu werden aber leider immer im DatenModul angelegt, ich möchte sie aber im Formular haben.

Kann ich auf Ereignisse des ADOTable aus dem Datenmodul reagieren, ohne die Ereignisse im Datenmodul implementieren zu müssen?

Gruß Markus

#2

Hallo…

Habe die genaue Syntax nicht im Kopf aber vom Prinzip her geht es so (die Code-Vervollständigung lässt Programmierer verblöden):

 myForm = class(TForm)
 private
 procedure HandleADOOnPost(ADOTable: TADOTable);
 end;

procedure myForm.HandleADOOnPost(ADOTable: TADOTable);
begin
 ShowMessage('Hier sollte jetzt eigentlich was passieren.');
end;

procedure myForm.OnCreate(Sender: TObject);
begin
 DataModul.ADOTable.OnPost := HandleADOOnPost;
end;

procedure myForm.OnDestroy(Sender: TObject);
begin
 DataModul.ADOTable.OnPost := nil;
end;

Ich hoffe das Prinzip wird Dir dadurch klar… Eventhandler sind nichts anderes als Methodenzeiger. Wichtig ist nur, dass die Parameterliste exakt mit der Definition (procedure of) übereinstimmt.

Viel Spaß damit…
Stage

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Das bringt mich ein ganzes Stück weiter!
Vielen Dank!

Markus