Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.545 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Navigator - Buttons ein- ausblenden

  Alt 26. Sep 2013, 15:12
Zitat:
Delphi-Quellcode:
  TJvDBNavigator = class(TDBNavigator)
  private
    FTransparent: Boolean;
    procedure SetTransparent(Value: Boolean);
  protected
    procedure Paint; override;
    procedure WMEraseBkgnd(var Msg: TWMEraseBkgnd); message WM_ERASEBKGND;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property Transparent: Boolean read FTransparent write SetTransparent default True;
  end;
Das sollten also ganz normale TNavigateBtn sein. Aber was zum Henker ist ein TspNavigateBtn? Sind irgendwelche Spezialunits eingebunden? Klappt es mit voll qualifizierten Bezeichnern?
Delphi-Quellcode:
JvDBNavigator.VisibleButtons := JvDBNavigator.VisibleButtons + [DBCtrls.nbPost];
JvDBNavigator.VisibleButtons := JvDBNavigator.VisibleButtons - [DBCtrls.nbDelete];
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat