Überprüfen ob ein Ergeigniss existiert?

[sh17]

ok, hab ich falsch verstanden.

Ich dachte, Du wolltest die Standardzeichenroutine des DBGrids erweitern.

Du willst aber eine bereits zugewiesene Zeichenroutine um eine andere erweitern.

Da müsstes Du in DrawColumnCell auf einen eigenen Handler zugreifen, der Deine verschiedenen Zeichenroutinen verwaltet und die jeweils aktiven aufruft.

Oder?

[Karstadt]

Zitat von sh17:

ok, hab ich falsch verstanden.

Ich dachte, Du wolltest die Standardzeichenroutine des DBGrids erweitern.

Du willst aber eine bereits zugewiesene Zeichenroutine um eine andere erweitern.

Da müsstes Du in DrawColumnCell auf einen eigenen Handler zugreifen, der Deine verschiedenen Zeichenroutinen verwaltet und die jeweils aktiven aufruft.

Oder?

Ich möchte das so realisieren...wenn DBGrid einen Ereignis hat, dann soll der erweitert werden.


DrawColumnCell
begin
//irgendwas
end;

und dann soll das erweitert werten

DrawColumnCell := neuesEreignis:

Ergebniss:

DrawColumnCell
begin
//irgendwas UND
neuesEreignis
end;

[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.