hallo,
kann mir bitte jemand zeigen, wie ich bei einem Navigator über die Codierung verschiedene Buttons ein- bzw. ausschalte

Hier mein Code, welcher leider nicht funktioniert (Fehlermeldung: Arraytyp erforderlich)

markieren

Delphi-Quellcode:

//z.B. save on, delete off
JvDBNavigator.VisibleButtons['nbPost'] = true; //Navi aus Jedi
JvDBNavigator.VisibleButtons['nbDelete'] = false;

Danke für jeden Hinweis
LingNeu

markieren

Delphi-Quellcode:

//z.B. save on, delete off
JvDBNavigator.VisibleButtons := JvDBNavigator.VisibleButtons+[nbPost];
JvDBNavigator.VisibleButtons := JvDBNavigator.VisibleButtons-[nbDelete];

hallo joachimd,
danke für deine hilfe!
leider funktioniert das nicht bei mir
es kommt die fehlermeldung beim compilieren:
"Inkompatible Typen: 'TNavigateBtn' und 'TspNavigateBtn'"

gruss
LingNeu

Zitat von LingNeu:

"Inkompatible Typen: 'TNavigateBtn' und 'TspNavigateBtn'"

Hab die Jedis gerade nicht installiert...prüfe die Typen. Heißen die denn genauso (nbPost, ...) oder vielleicht doch nicht?

Zitat:

zusammenfalten · markieren

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?

markieren

Delphi-Quellcode:

JvDBNavigator.VisibleButtons := JvDBNavigator.VisibleButtons + [DBCtrls.nbPost];
JvDBNavigator.VisibleButtons := JvDBNavigator.VisibleButtons - [DBCtrls.nbDelete];

hallo deddyh,
danke für die infos.
ich habe keine speziellen tools (nur die Jedi) - und daraus war der Navigator
Jetzt habe ich den Original-Navigator eingebunden - geht aber auch nicht.
Allerdings kommt mit deinem Code wenigstens keine Fehlermeldung mehr!!!
Aber es wird z.B. kein Post-Button angezeigt mit ...

DBNavigator1.VisibleButtons := DBNavigator1.VisibleButtons + [DBCtrls.nbPost]; gruss LingNeu

Korrekur:
FUNKTIONIERT BESTENS!!! Danke