[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