FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Creación de componente
Hola a todos,
Estoy intentando crear un componente que hereda de la clase TToolBar. He aquí el código. Código:
unit AltiBar; interface uses SysUtils, Classes, Controls, ToolWin, ComCtrls, StdCtrls, Dialogs; const Cte_Min_Panel_Width = 250; Cte_Min_Panel_Height = 100; Cte_Side_Margin = 8; Cte_Button_Height = 80; Cte_Button_Width = 100; Cte_Ctrls_Space = 1; Cte_Font_Size = 8; type TAltiBar = class(TToolBar) private { Private declarations } FButtonLogin: TToolButton; FButtonLogout: TToolButton; FButtonSep1: TToolButton; FImageList: TImageList; FLogin: String; FPassword: String; protected { Protected declarations } public { Public declarations } property Login : String read FLogin write FLogin; property Password: String read FPassword write FPassword; constructor Create (AOwner: TComponent); override; destructor Destroy; override; published { Published declarations } end; procedure Register; implementation procedure Register; begin RegisterComponents('Sit', [TAltiBar]); end; constructor TAltiBar.Create(AOwner: TComponent); begin inherited Create(aOwner); Parent:= TWinControl(aowner); Self.Caption := ''; self.Height := 100; self.Width := 862; // Controls creation FButtonSep1 := TToolButton.Create(Self); FButtonLogin := TToolButton.Create(Self); FButtonLogout := TToolButton.Create(Self); FButtonLogin.Parent := Self; FButtonLogout.Parent := Self; FButtonSep1.Parent := Self; FButtonLogin.Height := Cte_Button_Height; FButtonLogin.Width := Cte_Button_Width; FButtonLogout.Height := Cte_Button_Height; FButtonLogout.Width := Cte_Button_Width; FButtonSep1.Height := Cte_Button_Height; FButtonSep1.Width := Cte_Button_Width; FButtonLogin.Caption := 'Login'; FButtonLogin.ShowHint := True; FButtonLogin.Style := tbsButton; FButtonSep1.Style := tbsSeparator; FButtonLogout.Caption := 'Logout'; FButtonLogout.ShowHint := True; FButtonLogout.Style := tbsButton; end; destructor TAltiBar.Destroy; begin inherited; end; end. Creo una nueva aplicación, pego el componente y se ve ok, ahora bien, cuando ejecuto la nueva aplicación me dice que class TToolButton not found!!! Alguna idea. Saludos, Miguel Angel |
#2
|
||||
|
||||
Creo que es cosa de compilación, borra todos los dcu de tu aplicación y en la libreria añade el path donde están la fuente de tu toolbar
__________________
self.free; |
#3
|
|||
|
|||
He probado tu consejo y sigue igual.
Alguna idea más.... |
#4
|
|||
|
|||
Hola, en el create del componente, usa registerclass(TToolButton) despues del create(AOwner)
|
#5
|
|||
|
|||
Gracias
Mil gracias.
Funciono!!!! |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Creación de componente, con una x class | mrnovice | OOP | 3 | 03-02-2008 17:03:40 |
Creacion de componente | xerkan | OOP | 1 | 29-05-2007 14:20:36 |
Creacion componente | CHiCoLiTa | Varios | 8 | 05-09-2005 20:24:48 |
Duda en la creacion de un Componente | Holderhek | OOP | 3 | 23-03-2005 03:55:17 |
Componente para la creacion de filtros | jfk76 | OOP | 0 | 10-12-2004 00:27:24 |
|