Komponente ableiten: Ereignisse überschreiben

[xaromz]

Hallo,

Zitat von Martin K:

Hmm... irgendwie krieg ich's nich hin.

Wo muss ich denn die Prozedurprocedure MouseMove(Shift: TShiftState; X, Y: Integer); dynamic; deklarieren? (nach dem Schema von Beitrag #3 !!!)

Zur Zeit steht sie im public Teil, aber sie wird einfach nicht ausgeführt

Die Prozedur sollte in den "protected"-Bereich. Da ist sie auch ursprünglich definiert.
Außerdem musst Du natürlich die Prozedur mit override überschreiben, statt dynamic zu verwenden.

Gruß
xaromz

[Martin K]

Cool , jetzt gehts!
Danke!

Aber warum geht das ganze nicht mit MouseEnter und MouseLeave

[SirThornberry]

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)

[Martin K]

Zitat von SirThornberry:

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)

Naja, ich habe ein TLabel abgeleitet, da gibt es schon MouseEnter und MouseLeave.
Aber:

Zitat:

[Fehler] Methode 'MouseEnter' nicht in Basisklasse gefunden

[xaromz]

Hallo,

Zitat von Martin K:

Zitat von SirThornberry:

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)

Naja, ich habe ein TLabel abgeleitet, da gibt es schon MouseEnter und MouseLeave.
Aber:

Zitat:

[Fehler] Methode 'MouseEnter' nicht in Basisklasse gefunden

Es gibt die Ereignisse, aber sie sind anders implementiert, nämlich direkt in den Message-Behandlungsroutinen (TControl.CMMouseEnter bwz. TControl.CMMouseLeave).

Gruß
xaromz

[Martin K]

Und wie muss ich die dann deklarieren?

[Martin K]

Hab's mal so probiert:

Delphi-Quellcode:

  protected
    procedure CMMouseEnter; override;

Aber leider die gleiche Fehlermeldung wie oben

[xaromz]

Hallo,

die beiden Methoden sind folgendermaßen in private deklariert:

Delphi-Quellcode:

procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

So sieht die Implementierung von TControl aus:

Delphi-Quellcode:

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;

Das kannst Du so übernehmen und einfach die Methoden abändern.

Gruß
xaromz

[SirThornberry]

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.

[Martin K]

@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?