String Entscheidungen mit case treffen!!!

[Hansa]

Die sind für den absoluten Ausnahmefall da, aber IMHO nicht dafür, einen zu hindern so was einfaches selber einzubauen :

Delphi-Quellcode:

  TMenuelbl = class(TLabel)
    procedure SetMenueEbene (Value: integer);
  private
    FMenueEbene : integer;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property MenueEbene : integer read FMenueEbene write SetMenueEbene;
  end;

constructor Tlbl.Create(AOwner: TComponent);
begin
  inherited;
  MenueEbene := 0;  // Standard
end;

procedure TlblRealEdit.SetMenueEbene (Value: integer);
begin
  FMenueEbene := Value;
end;

wie gesagt, wenn ich dem Teil noch eine eigene Caption/SubComponent verpassen will, dann wirds eben mehr (aber nicht viel). Vorteil : habe nicht irgendein "Tag", sondern das was nötig ist.