como,na hora de criar um comp...

18/02/2003

0

eu catei um tutorial aqui no clube mesmo, de como criar componentes. Eu to querendo criar um novo tipo de label, meu código está assim:

unit QNewLabel;

interface

uses
Windows, Messages, SysUtils, Classes, QControls, QStdCtrls;

type
NewLabel = class(TLabel)
private
{ Private declarations }
protected
{ Protected declarations }
public
constructor create(AOwner : TComponent); override;
destructor destroy; override;
published
{ Published declarations }
end;

procedure Register;

implementation

constructor NewLabel.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
end;

destructor TComponent.Destroy;
begin

inherited destroy;
end;

procedure Register;
begin
RegisterComponents(´Samples´, [NewLabel]);
end;

end.

agora o que eu quero fazer nesse código é o segunte: cmoo q eu faço, para que nesse novo componente parecido com olabel, eu possa usar label comum?para fazer tipow, em cima dessa newlabel, tenha outro label(isso no componente, ou seja,se vc usasse esse componente, ia aparecer 2 labels) daí tpw, esse newlabel, com outro na posição -25y e +25x de posição em relação ao newlabel!

ou seja q fique tipo assim:

NewLabel
NewLabel

o componente!

ah e outra coisa, por esseplo, nas proprieties do newlabel o cara pois o caption talz, nos dois fica talz,etc.


Anonymous

Anonymous

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar