[Delphi] Jak wymusic obsluge eventu na wszystkich komponentach

[Yaronimo 0]

Problem wyglada tak:

 

Mam komponent dziedziczacy po TDBEdit i do jego DataSource.DataSet.AfterInsert przy inicjalizacji dodaje odpowiednia procedure.

Problemem jest to, ze event ten jest oblsuzony przez tylko jeden component tego typu podpiety do tego samego data sourca. W drugim juz nie jest raisowany po Insercie na tym DataSourcie. Zna ktos rozwiazanie?

[Deadeye 0]

Zrób sobie liste tych komponentów, i w inicjalizacji obiektu dodawaj go do listy, a w AfterInsert wywołuj odpowiedni event dla każdego z obiektów na liście.

[emes30 0]

Problem wyglada tak:

 

Mam komponent dziedziczacy po TDBEdit i do jego DataSource.DataSet.AfterInsert przy inicjalizacji dodaje odpowiednia procedure.

Problemem jest to, ze event ten jest oblsuzony przez tylko jeden component tego typu podpiety do tego samego data sourca. W drugim juz nie jest raisowany po Insercie na tym DataSourcie. Zna ktos rozwiazanie?

 

W komponencie przed przypisaniem musisz zapisać aktualną wartość DataSet.AfterInsert i w swojej procedurze ją wywołać.

[Yaronimo 0]

sposob deadeye dziala bez problemowo - dzieki. Myslalem ze moze uda sie znalezc jakis bardziej wyrafinowany sposob i uda sie uniknac tworzenia dodatkowych strutktur oprogramowujac tylko odpowiednie eventy.

[Deadeye 0]

sposob deadeye dziala bez problemowo - dzieki. Myslalem ze moze uda sie znalezc jakis bardziej wyrafinowany sposob i uda sie uniknac tworzenia dodatkowych strutktur oprogramowujac tylko odpowiednie eventy.

 

W delphi .net tak się da - tam są delegaty, czyli eventy do których można przypisać wiele procedur dokładnie tak jak chcesz. W zwykłym VCL trzeba się nieco bardziej wysilić.