Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
6. Jun 2006
@Martin K: Das was du gemacht hast nennt sich pushen und ist in diesme Forum erst nach 24 Stunden erlaubt. Wenn du etwas deinem Post hinzufügen willst benutze bitte den "Edit"-Button und poste nicht 3 mal hintereinander.
Auch andere wollen das Ihre Themen gelesen werden und denen gegenüber ist es unfair wenn du deinen Thread immer wieder davor schiebst in dem du pushst.
Wenn du eine Neue...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
6. Jun 2006
TCustomLabel ist der Vorfahre von TLabel. Allerdings sind dort die Properties noch nicht published. Das heißt niemand sieht das OnMouseEnter und somit kann auch niemand eine Methode zuordnen.
xaromz hat allerdings schon aufgezeigt wie du das MouseEnter abarbeiten kannst.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
6. Jun 2006
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...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
6. Jun 2006
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)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
6. Jun 2006
Als ich den Source noch nicht hatte hab ich sowas wie folgt gemacht:
TMeinKlasse = class(TUrsprungsklasse)
private
fOnMouseMove: TMouseMoveEvent;
procedure FOnMouseMoveProc(Sender: TObject; Shift: TShiftState; X, Y: Integer);
public
constructor Create(AOwner: TComponent); override;
published
property OnMouseMove: TMouseMoveEvent read fOnMouseMove write...