merkwürdig, bei mir läuft das bei meiner Komponente andersherum ab als bei einem Button
Delphi-Quellcode:
type
Tgliste2 = class(TCustomControl)
private
{...} { Private-Deklarationen }
protected
{ Protected-Deklarationen }
public
procedure mousedown( Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); override;
{...}
{ Public-Deklarationen }
published
{ Published-Deklarationen }
{...}
property OnEnter;
end;