Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tpercon,
12. Feb 2004
Ich würde mich mal nur in dem SetItems um die Labels kümmern:
constructor TMultiLinePanel.Create(aOwner: TComponent);
begin
inherited Create(aOwner);
FLabels := TObjectList.Create(true);
FItems := TStringList.Create;
end;
destructor TMultiLinePanel.Destroy;
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tpercon,
12. Feb 2004
Hier mal ein grober Anfang der Klasse.
TLabelPanel = class(TCustomPanel)
private
FLabels: TObjectList;
FItems: TStrings;
procedure SetItems(Value: TStrings);
public
constructor Create(aOwner : TComponent); override;
destructor Destroy; override;
property Items: TStrings read FItems write SetItems;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tpercon,
12. Feb 2004
Willst du was lernen oder nicht?!
Mit Klassen hast du schon gearbeitet?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tpercon,
12. Feb 2004
Ist doch maximal ne halbe Stunde Arbeit!
Ob es somwas fertig gibt -> keine Ahnung.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tpercon,
12. Feb 2004
Gut dann schreibe 'ne Ableitung von TPanel mit der property Items. Wenn diese gesetzt wird, dann erzeugst du soviele Labels wie du Zeilen bei Items hast. Verwalten kannst du das ganze intern mit der ObjectList.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Tpercon,
12. Feb 2004
Willst du jetzt auf einem Panel beliebig viele weitere Panels und auf diesen dann Labels oder willst du auf einem Panel beliebig viele weitere Labels? Du schreibst zuerst von Panels und dann von Labels :gruebel: