[Lazarus] Setting String Properties of Custom Component = AV

[Mattias Gaertner]

On Thu, 01 May 2008 19:57:33 -0400
Lee Jenkins <lee at datatrakpos.com> wrote:

>[...]
> Sorry Mattias, I wasn't clear enough.  When I site the component at
> *design time*, the mouse down events do not fire at *runtime*.  In
> the create event, I have this:
> 
> constructor TPOSButton.Create(AOwner: TComponent);
> begin
>    inherited Create(AOwner);
>    Self.OnMouseDown := HandleMouseDown;  // <== handlers with correct
> signatures. self.OnMouseUp := HandleMouseUp;
> end;

Components should not set their own events, but instead override the
methods. For example

  protected
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X,
           Y: Integer); override;

procedure TPOSButton.MouseDown(Button: TMouseButton; Shift:
TShiftState; X, Y: Integer);
begin
  inherited MouseDown(Button, Shift, X, Y);
end;


Mattias