Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by xaromz,
6. Jun 2006
Hallo,
die beiden Methoden sind folgendermaßen in private deklariert:
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
So sieht die Implementierung von TControl aus:
procedure TControl.CMMouseEnter(var Message: TMessage);
begin
if FParent <> nil then
FParent.Perform(CM_MOUSEENTER, 0,...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by xaromz,
6. Jun 2006
Hallo,
Es gibt die Ereignisse, aber sie sind anders implementiert, nämlich direkt in den Message-Behandlungsroutinen (TControl.CMMouseEnter bwz. TControl.CMMouseLeave).
Gruß
xaromz
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by xaromz,
6. Jun 2006
Hallo,
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