[Lazarus] SIGSEGV when trying to use a TCustomControl

Leonardo M. Ramé l.rame at griensu.com
Fri Apr 19 15:59:43 CEST 2013


On 2013-04-19 10:53:09 -0300, Marcos Douglas wrote:
> On Fri, Apr 19, 2013 at 10:38 AM, Leonardo M. Ramé <l.rame at griensu.com> wrote:
> > On 2013-04-19 10:35:18 -0300, Flávio Etrusco wrote:
> >> On Fri, Apr 19, 2013 at 10:27 AM, Leonardo M. Ramé <l.rame at griensu.com> wrote:
> >> > I'm creating a very basic TCustomControl with just a Constructor and its
> >> > Destructor.
> >> >
> >> > TMyCustomControl = class(TCustomControl)
> >> > public
> >> >   constructor Create(TheOwner: TComponent);override;
> >> >   destructor Destroy; override;
> >> > end;
> >>
> >> What are the contents of your constructor?
> >>
> >> -Flávio
> >
> > constructor TMyCustomControl.Create(TheOwner: TComponent);
> > begin
> >   inherited Create(TheOwner);
> > end;
> 
> And what are the contets of DoSomething method?
> 
> Marcos Douglas
> 

procedure TMyCustomControl.DoSomething;
begin
  ShowMessage('hello');
end;

As you can see, this is a very basic control I'm just trying to create.

-- 
Leonardo M. Ramé
http://leonardorame.blogspot.com




More information about the Lazarus mailing list