Jetzt wollte ich mal einen Navigator von Hand nutzen...
So verweigert er aber direkt seine Arbeit.
Delphi-Quellcode:
procedure TBindNavigatorController.EnableButtons(AButtons: TNavigateButtons; ADataSourceEnabled: Boolean;
ASetEnabled: TProc<TNavigateButton, Boolean>);
var
FUpState: TState;
FDnState: TState;
FCanModifyState: TState;
FStateSelected: TState;
...
function UpEnable: Boolean;
begin
if FUpState = stUnknown then
if ADataSourceEnabled and Selected and not Self.BOF then
FUpState := stEnable
else
FUpState := stDisable;
Result := FUpState = stEnable;
end;
...
function TBindNavigatorController.GetBOF: Boolean;
begin
if Assigned(FScopeNavigator) then // NIX OHNE Scope
Result := FScopeNavigator.BOF
else
Result := True;
end;
Die Hilfe bezieht sich z.T. auf den
VCL-Navigator. Das hilft auch nicht wirklich weiter.