Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hawkeye219,
2. Jun 2007
Durch das Überschreiben der Behandlungsroutinen für WM_LButtonDown und WM_LButtonUp hast du wichtige Überprüfungen und Initialisierungen in TControl lahmgelegt, was zu dem beschriebenen Verhalten führen könnte. MouseDown und MouseUp sind die von Borland vorgesehenen Routinen für Erweiterungen.
Gruß Hawkeye
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hawkeye219,
2. Jun 2007
Hallo,
du solltest nur die von TControl geerbten Methoden MouseDown und MouseUp überschreiben. Dabei darfst du allerdings den Aufruf der geerbten Methoden nicht vergessen, da ansonsten ein über OnMouseDown/OnMouseUp verbundener Eventhandler abgeklemmt wird.
type
TMenuButton = class (TCustomPanel)
protected
procedure MouseDown (Button: TMouseButton; Shift: TShiftState;