Überprüfen ob ein Ergeigniss existiert?

[Karstadt]

Hallo. Wie kann ich überprüfen ob eine Ereignisbehandlungsroutine existiert?

z.B. Button1.OnClick? Wenn es keine gibt will ich eine zuweisen...wie geht die Überprüfung?

[mkinzler]

Wenn keine Routine existiert, hat die Propertzy den Wert NIL.

[Dale]

Hallo,

falls keine Ereignisbehandlungsroutine existiert, dann müsste die Abfrage

Delphi-Quellcode:

Assigned(Button1.OnClick) = False

sein.

Gruß Dale

[Karstadt]

Delphi-Quellcode:

var I : Integer;
begin
  With Formular do
  begin
    for i:= 0 to ComponentCount-1 do
    begin
      IF (Components[i] is TDBGrid) Then
      begin
        //TDBGrid(Components[i]).Font.Size := 15;
        IF not Assigned(TDBGrid(Components[i]).OnDrawColumnCel) Then
        TDBGrid(Components[i]).OnDrawColumnCell := DbGrib_DrawColumnCell_Einstellung;
      end;

[Fehler] hauptfenster.pas(375): Undefinierter Bezeichner: 'OnDrawColumnCel'

Warum?

[mkinzler]

Schau mal in Zeile 10, dort hast du nen Tippfehler

[sh17]

Cell mit ll

[Karstadt]

:duck:


oh oh...

Eine weitere Frage... Wenn ich schon bei ONCLICK was eingegeben haben kann ich das per code erweitern.

Delphi-Quellcode:

var I : Integer;
begin
  With Formular do
  begin
    for i:= 0 to ComponentCount-1 do
    begin
      IF (Components[i] is TDBGrid) Then
      begin
        //TDBGrid(Components[i]).Font.Size := 15;
        IF not Assigned(TDBGrid(Components[i]).OnDrawColumnCell) Then
        TDBGrid(Components[i]).OnDrawColumnCell := DbGrib_DrawColumnCell_Einstellung
        //elseOnDrawColumnCell + DbGrib_DrawColumnCell_Einstellung geht das?
      end;

[mkinzler]

Nein eine (Ereignis-)Property zeigt auf eine Methode ( sie ist eien Referenz)

[sh17]

Du kannst aber in Deiner Routine

Delphi-Quellcode:

DBGrid1.DefaultDrawColumnCell(Rect,Datacol,Column,State);

aufrufen

[Karstadt]

und was bringt mir das?

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

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.