/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
2 Labels i én komponent?
Fra : B. S. Evers


Dato : 17-04-02 10:43

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



 
 
David A. D. Konrad (17-04-2002)
Kommentar
Fra : David A. D. Konrad


Dato : 17-04-02 10:52

"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.




Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste