Ein Label in einer Komponenten im Objektinspektor anzeigen

[Kostas]

Halo Zusammen,

ich habe eine Komponente aus TPanel abgeleitet und erweitert mit ein
TJvAngleLabel(ist ein TLabel aus JVC).

Problem1: Der Objektinspektor zeigt mir die Eigenschaft zwar an, jedoch mit ein DropDown Button.
Ich hätte erwartet das es wie eine Baumstruktur angezeigt wird, da es ja ein Objekt ist.
Problem2: Das Label wird nur zur Laufzeit angezeigt.
Problem3: Wie kann ich bitte die Eigenschaft Panel.Caption entfernen da ich sich nicht benötige.


Hier mein code:
Der Sinn der Komponente ist, wenn das Panel schmäler ist wie die Länge des Label,
soll das Label um 90Grad gedreht und zentriert werden.

Hat jemand eine Idee?

Delphi-Quellcode:

unit LabelPanel;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, JvLabel, JvAngleLabel;

type
  TLabelPanel = class(TPanel)
  private
    { Private-Deklarationen }
    FAngleLabel : TJvAngleLabel;
  protected
    { Protected-Deklarationen }
    procedure WMSize( var Message: TWMSize ); message WM_SIZE;
  public
    { Public-Deklarationen }
    constructor Create(AOwner:TComponent); override;
  published
    { Published-Deklarationen }
    property AngleLabel : TJvAngleLabel read FAngleLabel write FAngleLabel;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Kostas Std', [TLabelPanel]);
end;


procedure TLabelPanel.WMSize(var Message: TWMSize);
begin
  if Assigned(FAngleLabel) then
  begin
    if (FAngleLabel.Width > Width)
    then FAngleLabel.Angle := 90
    else FAngleLabel.Angle := 0;

    FAngleLabel.Left := Trunc( (width  / 2) - (FAngleLabel.Height / 2) );
    FAngleLabel.Top := Trunc( (Height  / 2) - (FAngleLabel.Width / 2) );
  end;{if}

  if Assigned(OnResize) then OnResize(Self);


end;

Constructor TLabelPanel.Create(AOwner:TComponent);
begin
  inherited Create(AOwner);
  self.Caption := '';
  FAngleLabel := TJvAngleLabel.Create(self);
  FAngleLabel.Parent := self;
  FAngleLabel.caption := 'Das isze ein langer Text';
end;

end.

[mkinzler]

Stichwort Property Editor

[Hawkeye219]

Hallo Kostas,

ich habe es nicht getestet, aber so könnte es funktionieren:

Delphi-Quellcode:

type
  TLabelPanel = class(TPanel)
  ...
  published
    property AngleLabel : TJvAngleLabel read FAngleLabel;  // kein write
  end; 

Constructor TLabelPanel.Create(AOwner:TComponent);
begin
  inherited Create(aOwner);
  self.Caption := '';
  FAngleLabel := TJvAngleLabel.Create(self);
  FAngleLabel.Parent := self;
  FAngleLabel.caption := 'Das isze ein langer Text';
  FAngleLabel.SetSubComponent (True);  // neu
end;

Zum Entfernen der Eigenschaft Caption mußt du deine Komponente von TCustomPanel ableiten. Dann kannst du nur die von dir gewünschten Eigenschaften veröffentlichen.

Gruß Hawkeye

[Kostas]

Zitat:

Zitat von Hawkeye219

Hallo Kostas,

ich habe es nicht getestet, aber so könnte es funktionieren:

Delphi-Quellcode:

type
  TLabelPanel = class(TPanel)
  ...
  published
    property AngleLabel : TJvAngleLabel read FAngleLabel;  // kein write
  end; 

Constructor TLabelPanel.Create(AOwner:TComponent);
begin
  inherited Create(aOwner);
  self.Caption := '';
  FAngleLabel := TJvAngleLabel.Create(self);
  FAngleLabel.Parent := self;
  FAngleLabel.caption := 'Das isze ein langer Text';
  FAngleLabel.SetSubComponent (True);  // neu
end;

Zum Entfernen der Eigenschaft Caption mußt du deine Komponente von TCustomPanel ableiten. Dann kannst du nur die von dir gewünschten Eigenschaften veröffentlichen.

Gruß Hawkeye

Hallo Hawkeye,
bitte was ist "SetSubComponent(True);" hab das nicht in Delphi 5.

Gruß Kostas

[Hawkeye219]

Zitat:

Zitat von Kostas

bitte was ist "SetSubComponent(True);" hab das nicht in Delphi 5.

Entschuldige Kostas, das habe ich nicht beachtet. Die Unterstützung für subcomponents wurde erst mit Delphi 6 eingeführt. Ich befürchte, du wirst dein Vorhaben mit Delphi 5 so nicht umsetzen können.

Der Vorschlag von Markus (Property Editor) ist eine Alternative. Eine andere wäre es, alle benötigten Label-Eigenschaften auch als Eigenschaften in deinem Panel zu veröffentlichen. Beim Lesen der Panel-Eigenschaft holst du dir dann den zugehörigen Wert aus dem Label, beim Schreiben einer Eigenschaft setzt du den zugehörigen Wert im Label. Je nach Anzahl der Eigenschaften ist das sehr viel Schreibarbeit...

Gruß Hawkeye

[Kostas]

Hallo Hawkeye219,

dank für die Antwort.
Eigentlich ist es nicht notwendig das Label im OI zu sehen.
Ich habe jetzt einfach die Eigenschaft "LabelCaption" in das Panel
angelegt. Das funkt soweit einwandfrei.

Gruß Kostas