/
Forside
/
Teknologi
/
Udvikling
/
Delphi/Pascal
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
Delphi/Pascal
#
Navn
Point
1
oldwiking
603
2
jrossing
525
3
rpje
520
4
EXTERMINA..
500
5
gandalf
460
6
gubi
270
7
DJ_Puden
250
8
PARKENSS
230
9
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
Alle emner
Teknologi
Udvikling
Delphi/Pascal
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177552
Tips :
31968
Nyheder :
719565
Indlæg :
6408849
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.