[Solved]How can I make a descendent of a TCustomLabeledEdit

[bobonwhidbey]

I'm trying to make a new component but
     TMyComp = class(TCustomLabelEdit)
doesn't work even though ExtCtrls is in my Uses clause.

[wp]

What isn't working? And what should be different from TCustomLabeledEdit?

The following demo is working. It creates a TMyComp component as descendant of TCustomLabeledEdit in which the label font color defaults to red.

Code: Pascal  [Select][+][-]

1. unit Unit1;
2.  
3. {$mode objfpc}{$H+}
4.  
5. interface
6.  
7. uses
8.   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls;
9.  
10. type
11.   TMyComp = class(TCustomLabeledEdit)
12.   public
13.     constructor Create(AOwner: TComponent); override;
14.   end;
15.  
16.   { TForm1 }
17.  
18.   TForm1 = class(TForm)
19.     procedure FormCreate(Sender: TObject);
20.   private
21.     myComp: TMyComp;
22.  
23.   public
24.  
25.   end;
26.  
27. var
28.   Form1: TForm1;
29.  
30. implementation
31.  
32. {$R *.lfm}
33.  
34. constructor TMyComp.Create(AOwner: TComponent);
35. begin
36.   inherited;
37.   EditLabel.Font.Color := clRed;
38. end;
39.  
40. { TForm1 }
41.  
42. procedure TForm1.FormCreate(Sender: TObject);
43. begin
44.   myComp := TMyComp.Create(self);
45.   myComp.Left := 8;
46.   myComp.Top := 24;
47.   myComp.Width := 200;
48.   myComp.Parent := self;
49.   myComp.EditLabel.Caption := 'My new component';
50.   myComp.Text := 'This is a test.';
51. end;

[Blaazen]

It is "Labeled". A typo, I guess. And yes, it is in ExtCtrls.

Code: Pascal  [Select][+][-]

1.      TMyComp = class(TCustomLabeledEdit)
2.  

Otherwise I cannot imagine how it cannot be subclassed.

[bobonwhidbey]

Thanks Blaazen....just a dumb typo  :'(