SelectNext aus Datamodule

[daddy]

3 Ansätze zu diesem Thema:

1. Wie Du selber schon schreibst, könntest Du über die Parent-Eigenschaft eines als Parameter übergebenen Controls an das Formular kommen. Also z.B. so für ein TDBEdit, das direkt in einem Form liegt:

Delphi-Quellcode:

with TForm(TDBEdit(Sender).Parent) do 
...

Ist aber wahrscheinlich eine weniger gute Lösung, weil Du für jeden Sender, der ja schließlich auch in mehrere Panels o.ä. eingebunden sein kann, über einen Aufruf erst mal das übergeordnete Formular ermitteln musst (hierfür gibt es eine Delphi-Funktion).

2. Du spendierst dem Private-Bereich Deines Datenmoduls eine Variable MyForm des Typs TForm, die an geeigneter Stelle des Programms Dein Formular zugewiesen bekommt und auf die Du dann normal zugreifen kannst.

3. Wenn Dein Formular ohnehin durch eine globale Variable repräsentiert wird (z.B. var MyForm: TMyForm;), kannst Du auch die nutzen, indem Du in der USES-Klausel im Implentationsbereich Deines Datenmoduls die Unit MyForm einbindest.

Gruß Daddy