Re: Komponente ableiten: Ereignis löschen ???
Hallo,
Zitat:
Außerdem musst Du natürlich die Prozedur mit override überschreiben, statt dynamic zu verwenden. Gruß xaromz |
Re: Komponente ableiten: Ereignis löschen ???
Cool :???: , jetzt gehts!
Danke! Aber warum geht das ganze nicht mit MouseEnter und MouseLeave :?: |
Re: Komponente ableiten: Ereignis löschen ???
weil es für MouseEnter und MouseLeave keine dynamiche oder virtuelle Methode gibt. Bei diesen Events bleibt dir wohl nur die Möglichkeit so wie ich es beschrieben hab (bzw. kommt es auf die Komponente an von der du ableitest ob diese eine virtuelle oder dynamiche Methode davor vorgesehen hat)
|
Re: Komponente ableiten: Ereignis löschen ???
Zitat:
Aber: Zitat:
|
Re: Komponente ableiten: Ereignis löschen ???
Hallo,
Zitat:
Gruß xaromz |
Re: Komponente ableiten: Ereignis löschen ???
Und wie muss ich die dann deklarieren?
|
Re: Komponente ableiten: Ereignis löschen ???
Hab's mal so probiert:
Delphi-Quellcode:
Aber leider die gleiche Fehlermeldung wie oben :?
protected
procedure CMMouseEnter; override; |
Re: Komponente ableiten: Ereignis löschen ???
Hallo,
die beiden Methoden sind folgendermaßen in private deklariert:
Delphi-Quellcode:
So sieht die Implementierung von TControl aus:
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
Delphi-Quellcode:
Das kannst Du so übernehmen und einfach die Methoden abändern.
procedure TControl.CMMouseEnter(var Message: TMessage);
begin if FParent <> nil then FParent.Perform(CM_MOUSEENTER, 0, Longint(Self)); if (Message.LParam = 0) and Assigned(FOnMouseEnter) then FOnMouseEnter(Self); end; procedure TControl.CMMouseLeave(var Message: TMessage); begin if FParent <> nil then FParent.Perform(CM_MOUSELEAVE, 0, Longint(Self)); if (Message.LParam = 0) and Assigned(FOnMouseLeave) then FOnMouseLeave(Self); end; Gruß xaromz |
Re: Komponente ableiten: Ereignis löschen ???
klar das dies nicht funktioniert. Die Fehlermeldung hat ja ausgesagt das es in der Basisklasse keine solche Methode gibt. Und wenn es eine solche Methode nicht gibt kann man Sie auch nicht überschreiben (Grundlagen).
Du musst wenn dann die Message selbst abfangen oder eben die von mir bereits gepostete Variante nutzen. Oder leite einfach von TCustomLabel ab, dort sind die Properties noch nicht published und somit brauchst du die Properties auch nicht neu definieren sondern lässt sie einfach im Protected so das niemand ran kommt. |
Re: Komponente ableiten: Ereignis löschen ???
@xaromx:
Also nur die beiden Methoden aus dem ersten Code in private schreiben, override dahinter und den zweiten Code brauch ich nicht? @SirThornberry: Wie sieht denn bei einem TCustomLabel die Deklaration von MouseEnter im protected-Teil aus? |
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:04 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz