[Lazarus] SIGSEGV when trying to use a TCustomControl

patspiper patspiper at gmail.com
Fri Apr 19 16:14:42 CEST 2013


On 19/04/13 16:59, Leonardo M. Ramé wrote:
> 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.
Can you provide the full unit, or better a trimmed down one?

Stephano
>





More information about the Lazarus mailing list