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?

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

Hallo,

falls keine Ereignisbehandlungsroutine existiert, dann müsste die Abfrage
Assigned(Button1.OnClick) = False sein.

Gruß Dale

zusammenfalten · markieren

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?

Schau mal in Zeile 10, dort hast du nen Tippfehler

Cell mit ll

oh oh...

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

zusammenfalten · markieren

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;

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

Du kannst aber in Deiner Routine

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

und was bringt mir das?