Ver Mensaje Individual
  #1  
Antiguo 30-09-2014
Irwin Irwin is offline
Registrado
NULL
 
Registrado: jul 2014
Posts: 5
Reputación: 0
Irwin Va por buen camino
Crear un paquete personalizado

Hola amigos,

Quiero crear un nuevo componente (Label) pero con unas propiedades ya listas como el font name, color, etc.

Yo realizo el siguiente paso:

Archivo->Nuevo->Componente

Selecciono el ancestro y todo lo demas y doy a crear componente:

Finalmente me genera la siguiente unidad:

Código Delphi [-]
unit MyLabel1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;

type
  TMyLabel1 = class(TLabel)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard',[TMyLabel1]);
end;

end.

Imagino que dentro de este código es donde seteo mis propiedades para tenerlas listas y cada vez que seleccione el componente en la paleta me inserte el label ya con las propiedades seteadas.

Alguna idea de como hacerlo?

Gracias a todos!

Última edición por Neftali [Germán.Estévez] fecha: 30-09-2014 a las 12:37:48. Razón: Añadir TAG's
Responder Con Cita