Eigenes Event anlegen + Event Handler

[arc]

Besten Dank! So funktioniert es:

Delphi-Quellcode:

     TToggleButton = class(TConnector)
                      protected
                        selected:boolean;

                      public
                        OnClick:TNotifyEvent;
                        property isSelected:boolean read selected write selected;

                        constructor Create(newtarget:TModule); virtual;
                        procedure OnClickActive(Sender:TObject);
                        procedure OnClickBypass(Sender:TObject);
                    end;