Komponenten zu labeled Komponenten "wandeln"

[jaenicke]

Zitat von stahli:

Nevig wäre, Labels von Hand auf´s Formular zu setzen und auszurichten. Wenn es allerdings nur statische Beschriftungen sein sollen ist es vermutlich der schnellste Weg (sofern man nicht entsprechende fertige Controls mit Label hat).

Wobei das immer neu ausrichten bei Verschiebungen bei Firemonkey ja nicht mehr nötig ist, da kann man die ja einfach an andere Komponenten antackern.

[Sherlock]

Also nur zur Klärung: Ich möchte sowas wie das Vcl.ExtCtrls.TLabeledEdit für zB ein TDateTimePicker oder auch ein TwwDBSpinEdit oder ein TMemo etc. Das soll dann die Arbeit vereinfachen, ich finde es extrem praktisch wennd as Label gleich am Edit hängt, und auch auf "Knopfdruck" neu ausgerichtet werden kann.

Himitsus Ansatz scheint mir leider nicht geeignet, ich will zur Designzeit die Labels schon sehen können.

Sherlock

[himitsu]

Du kannst sie da doch auch schon anzeigen?

Ob nun Laufzeit oder DesignTime, ist eigentlich egal.
Untereinander sind die Komponenten gleich verbunden.

Der Owner der sichtbaren Labels darf aber nicht der Form entsprechen.
Es sollte sowieso die MasterKomponente sein, bzw. die Listenkomponente darin.

Die Iteminstanzen könnte man eben wie im TPoupMenü verwalten, oder wie die Fields in einigen DataSet-Komponenten.
Und wie bei diesem komischen DevExpressMenü kann man das auch schon zur Designtime anzeigen.

Wobei du da eventuell noch nichtmal zwischen DesignTime und Runtime entscheiden mußt, wenn du nicht willst/brauchst, daß deine Labels direkt im OI "anklickbar" sein sollen. (so wie das Label im TLabeledEdit)

[Sherlock]

Ich geh ins Wochenende

Hier mein Versuch das per decorator pattern umzusetzen.
Das sind noch keine Komponenten, das käme später, es geht erstmal um Machbarkeit:

Delphi-Quellcode:

type
  TNxBoundLabel = class(TBoundLabel)            //* Damit wir an die protected-Innereien herankommen
  end;

  TNxLabeledControl = class(TCustomEdit)        //* Der Dekorateur für TCustomEdit
  private                                       //* TCustomEdit deshalb, weil viele Komponenten davon abgeleitet sind...Datepicker leider nicht.
    fCustomEdit: TCustomEdit;
    fEditLabel: TNxBoundLabel;
    fLabelPosition: TLabelPosition;
    fLabelSpacing: Integer;
    procedure SetLabelPosition(const Value: TLabelPosition);
    procedure SetLabelSpacing(const Value: Integer);
  protected
    procedure SetParent(AParent: TWinControl); override;
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
    procedure SetName(const Value: TComponentName); override;
    procedure CMVisiblechanged(var Message: TMessage); message CM_VISIBLECHANGED;
    procedure CMEnabledchanged(var Message: TMessage); message CM_ENABLEDCHANGED;
    procedure CMBidimodechanged(var Message: TMessage); message CM_BIDIMODECHANGED;
  public
    constructor Create(AOwner: TComponent; aCustomEdit: TCustomEdit); reintroduce;
    procedure SetBounds(ALeft: Integer; ATop: Integer; AWidth: Integer; AHeight: Integer); override;
    procedure SetupInternalLabel;
    property EditLabel: TNxBoundLabel read FEditLabel;
  published
    property LabelPosition: TLabelPosition read FLabelPosition
      write SetLabelPosition default lpAbove;
    property LabelSpacing: Integer read fLabelSpacing write SetLabelSpacing
      default 3;
  end;

  TNxEdit = class(TNxLabeledControl)    //* Das zu dekorierende Control ist in diesem einfachen Fall ein TEdit (siehe Code im Contrustor)
  private
    fNXLabeledControl: TNxLabeledControl;
  public
    constructor Create(aOwner: TComponent);
    destructor Destroy; override;
  end;

Die meisten Methoden sind im Prinzip C&P aus TCustomLabeledEdit. Worauf es IMO ankommt ist:

Delphi-Quellcode:

constructor TNxLabeledControl.Create(AOwner: TComponent; aCustomEdit: TCustomEdit);
begin
  inherited Create(AOwner);
  fCustomEdit := aCustomEdit;
  FLabelPosition := lpAbove;
  FLabelSpacing := 3;
  SetupInternalLabel;
end;

procedure TNxLabeledControl.SetupInternalLabel;
begin
  if Assigned(FEditLabel) then
    exit;
  if not Assigned(fCustomEdit) then
    exit;
  FEditLabel := TNxBoundLabel.Create(fCustomEdit);
  FEditLabel.FreeNotification(fCustomEdit);
  FEditLabel.FocusControl := fCustomEdit;
end;

Der Code für das zu labelnde Edit

Delphi-Quellcode:

constructor TNxEdit.Create(aOwner: TComponent);
begin
  inherited Create(aOwner, TEdit.Create(Self));   //* Hier steht endlich die zu verwendende Komponente
end;

destructor TNxEdit.Destroy;
begin
  fCustomEdit.Free;
  inherited;
end;

In einem ersten Test wird zwar das Edit angezeigt, nicht jedoch das Label Ich freue mich aber darüber das es nicht knallt

Ich schau Montag wieder rein. Bis denne!

Sherlock

[Helmi]

Hallo,

ich hab mir auch mal TLabeled-Komponenten gebaut
Hab ein TLabeledComboBox, TLabeledSpinEdit, TLabeledMaskEdit und ein paar Sonder-Komponenten.

Wobei ich nicht nur ein Label drin hab, sondern 2 (pre und pro)
Also eines vor links z. B. und eines vor rechts (z. B. links für einen Infotext, rechts für eine Einheit)

Anbei mal mein TLabeledSpinEdit

eigentlich unterscheiden sich die o. g. Komponenten nur in dieser Zeile:
TLabeledSpinEdit = class(TSpinEdit) (und natürlich der Klassennamen der functions....)

[Sherlock]

Hallo Helmi,
wunderschön. Sowas habe ich ja auch vor. Mit dem Unterschied, daß ich nicht für jede weitere gelabelte Komponente den gleichen Code kopieren möchte. Da muss es doch was von Ratioph...äh von den Freunden aus der GoF geben. Ich dachte eben an das Decorator Pattern, weil ich (eventuell zu bildlich denkend) das Label für die Dekoration eines Controls halte. Ich setze mich heute wieder ran, und schau ob ich es nicht doch noch hinbekomme. Ich will ja auch was lernen ISt ja eigentlich fast fertig, es fehlt schließlich nur die Anzeige des Labels.

Sherlock

[WoGe]

Wenn es darum geht das Decorator Pattern hier zu verwenden, ist mein Ansatz wahrscheinlich falsch.
Aber waren die Frames nicht auch dazu gedacht, genau so was zu realisieren?

Ein Frame der ein TLabel und ein TxxxxEdit enthält - samt der ganzen Logik die dazu benötigt wird?

Grüße
wo