[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