AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Eigenes Event anlegen + Event Handler

Ein Thema von arc · begonnen am 18. Feb 2012 · letzter Beitrag vom 18. Feb 2012
Antwort Antwort
Benutzerbild von arc
arc

Registriert seit: 6. Nov 2009
Ort: Elbflorenz
62 Beiträge
 
FreePascal / Lazarus
 
#1

Eigenes Event anlegen + Event Handler

  Alt 18. Feb 2012, 18:18
Delphi-Version: 7
Ich habe bereits nach Event Handler und method pointer im Forum gesucht, aber nur die Variante gefunden, daß jemand einen eigenen Eventhandler zuweisen möchte. Das habe ich bereits gemacht und das klappt auch.

Nun habe ich mir jedoch eine eigene Button Klasse geschrieben und möchte dieser Klasse ein OnClick Event spendieren, daß ich später mit einem Eventhandler in der Form MyButton.OnClick:=bla; belegen kann.

Nun die Frage, wie legt man OnClick an? Ich habe es als OnClick:TProcedure; angelegt, da kommt natürlich der Fehler "Incompatible Types: regular procedure and method pointer". Als OnClick:TMethod; ging es auch nicht. Wie legt man soetwas an?

Hier etwas Code dazu:
Delphi-Quellcode:
     TToggleButton = class(TConnector)
                      protected
                        selected:boolean;

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

                        constructor Create(newtarget:TModule); virtual;
                        procedure OnClickActive;
                        procedure OnClickBypass;
                    end;
OnClick soll je nach Anwendungsfall durch OnClickActive oder OnClickBypass ersetzt werden. Das könnte ich natürlich auch anders lösen, aber ich möchte gern etwas neues lernen.

Hat jemand eine Idee? Danke!
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
7.094 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: Eigenes Event anlegen + Event Handler

  Alt 18. Feb 2012, 18:25
TNotifyEvent
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von arc
arc

Registriert seit: 6. Nov 2009
Ort: Elbflorenz
62 Beiträge
 
FreePascal / Lazarus
 
#3

AW: Eigenes Event anlegen + Event Handler

  Alt 18. Feb 2012, 18:28
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;
  Mit Zitat antworten Zitat
Furtbichler
(Gast)

n/a Beiträge
 
#4

AW: Eigenes Event anlegen + Event Handler

  Alt 18. Feb 2012, 18:44
Ich bezweifle das. Ein Ereignis ist eine vom Anwender der Klasseninstanz zu belegende Methode.
So ist es richtig
Delphi-Quellcode:
Type
  TMyClass = Class
    FOnDoSomething : TNotifyEvent;
  public
    property OnDoSomething : TNotifyEvent Read FOnDoSomething write FOnDoSomething;
  End;

Geändert von Furtbichler (18. Feb 2012 um 19:17 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von arc
arc

Registriert seit: 6. Nov 2009
Ort: Elbflorenz
62 Beiträge
 
FreePascal / Lazarus
 
#5

AW: Eigenes Event anlegen + Event Handler

  Alt 18. Feb 2012, 19:07
Ah, wieder was gelernt. Danke!
  Mit Zitat antworten Zitat
Benutzerbild von Aphton
Aphton

Registriert seit: 31. Mai 2009
1.198 Beiträge
 
Turbo Delphi für Win32
 
#6

AW: Eigenes Event anlegen + Event Handler

  Alt 18. Feb 2012, 19:12
da fehlt das Schlüsselwort "property" davor...
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG
  Mit Zitat antworten Zitat
Furtbichler
(Gast)

n/a Beiträge
 
#7

AW: Eigenes Event anlegen + Event Handler

  Alt 18. Feb 2012, 19:18
da fehlt das Schlüsselwort "property" davor...
Stimmt garnicht.

Nee, danke: Geändert.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf