Añadir un método a un objeto TCombobox

[Sera]

Hola,

Vaya, ahora intentado reproducir el error va y funciona. Creo que estaría haciendo algo mal.
De todas formas quisiera aclarame con esto.

Aquí el código del .pas

Código Delphi [-]
type

    { TDispositivosCmd }

    TDispositivosCmd = class(TComboBox)
      public
      procedure CargarDispositivos;
    end;

  { TMainForm }

  TMainForm = class(TForm)
    CerrarBtn: TButton;
    DispositivosCmb: TDispositivosCmd;
    //DispositivosCmb: TComboBox;
    DispositivosLbl: TLabel;
    PerfilesLbl: TLabel;
    LeftPanel: TPanel;
    ListBox1: TListBox;
    RightPanel: TPanel;
    procedure CerrarBtnClick(Sender: TObject);
    procedure DispositivosCmbChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

Y este el del .flm

Código Delphi [-]
  object DispositivosCmb: TDispositivosCmd
    Left = 324
    Height = 23
    Top = 40
    Width = 325
    ItemHeight = 15
    OnChange = DispositivosCmbChange
    Style = csDropDownList
    TabOrder = 1
  end

La idea es personalizar el objeto para este Form, incluso con sus propias propiedades.
El caso es que preferiria personalizar el objeto directamente en lugar de usar una subclase.

Gracias

[[AgustinOrtu]]

Tenes un par de opciones:

1) Para poder agregarlo a un form tenes que crear un componente; es la forma en la que delphi trabaja con los controles en tiempo de diseño. Si no te salen errores "raros". O la otra alternativa, es que creas el componente en runtime (mediante codigo, no con el diseñador RAD)

2) Usar un class helper, aunque no se si esto esta implementado en FPC

3) Como comento Lepe, casteas la instancia en tiempo de ejecucion para acceder a los metodos de tu clase, ya que siguiendo las reglas basicas de la herencia, un TDispositivosCmd es un TComboBox. Pero es necesario que mantengas la declaracion del componente que referencia el form como TComboBox, y tambien el archivo .flm debe conocer un TComboBox

[Sera]

Echaré un vistazo a las Class helper, para tener más opciones.

Gracias por vuestras respuestas.