Ü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
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]

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

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

[Karstadt]

und was bringt mir das?