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.
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)