---

Hej

Er det muligt at lave en komponent indeholdene 2 Labels forskudt fra
hinanden (over under)? Nogen der har et hint?

På forhånd tak!

Mvh. Bjarne Evers

---

"B. S. Evers" <bse34171@vip.cybercity.dk> skrev i en meddelelse
news:3cbd4409$0$26618

> Er det muligt at lave en komponent indeholdene 2 Labels forskudt fra
> hinanden (over under)? Nogen der har et hint?

Det er meget simpelt. Installer følgende unit i en package

unit TwoLabels;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

type
TTwoLabels = class(TCustomControl)
private
FLabel1 : TLabel;
FLabel2 : TLabel;
FLabel1Caption: string;
FLabel2Caption: string;
procedure SetLabel1Caption(const Value: string);
procedure SetLabel2Caption(const Value: string);
protected
public
constructor create(AOwner:TComponent); override;
destructor destroy; override;
published
property Label1Caption:string read FLabel1Caption write
SetLabel1Caption;
property Label2Caption:string read FLabel2Caption write
SetLabel2Caption;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Samples', [TTwoLabels]);
end;

{ TTwoLabels }

constructor TTwoLabels.create(AOwner: TComponent);
begin
inherited;
width:=100;
height:=50;

FLabel1:=TLabel.create(nil);
FLabel1.caption:='Label1';
FLabel1.align:=alTop;
FLabel1.parent:=self;

FLabel2:=TLabel.create(nil);
FLabel2.caption:='Label1';
FLabel2.align:=alTop;
FLabel2.parent:=self;
end;

destructor TTwoLabels.destroy;
begin
FLabel1.free;
FLabel2.free;
inherited;
end;

procedure TTwoLabels.SetLabel1Caption(const Value: string);
begin
FLabel1Caption := Value;
FLabel1.caption:=value;
end;

procedure TTwoLabels.SetLabel2Caption(const Value: string);
begin
FLabel2Caption := Value;
FLabel2.caption:=value;
end;

end.