Überprüfen ob ein Ergeigniss existiert?

[sh17]

dann müsste ja so etwas gehen:

Delphi-Quellcode:

TMyHandler
  OnDrawCells : Liste
  procedure AddDrawPoc
  procedure RemoveDrawProc
  procedure SetEnabled(ProcSoundso, Value)
  procedure Draw()
end;

..
procedure TMyHandler.draw
begin
  for alle Proc in OnDrawCells do
  if proc.active then
    proc
end;


DBGrid.OnDrawCell...
begin
  Handler.Draw();
end;

Mal so aus der hohlen Hand.