ActionToolBar DataSet-Aktionen nächster,vorheriger

[needatip]

Hallo,
ich benutze auf einem Formular eine ActionToolbar, in der ich über einen Actionmanager Standaraktionen des DataSet einfüge.
Bei den Aktionen 'vorheriger' und 'nächster' kann man aber bei gedrückt gehaltener Maustaste jeweils nur einen Datensatz weiterspringen. Es findet kein Durchlaufen der Datenmenge statt.
Kann man das ändern wie bei einer TDBNavigator-Leiste, daß wenn man mit der Maustaste auf 'Pfeil rechts' draufbleibt, ein automatisches Weiterspringen der Datensätze gewährleistet ist?

[marabu]

Hallo,

nicht direkt - denke ich. Macht das überhaupt Sinn?

Du benötigst dann eigentlich einen Zustandsschalter (Scrolling enabled) und keinen Aktionsschalter. Die Scroll-Funktion (Prior, Next) wird dann nicht im OnExecute der Action ausgeführt, sondern im OnUpdate. Zusätzlich musst du dann eine Verzögerung einbauen, damit das Auge folgen kann.

Grüße vom marabu

[needatip]

Verstehe nicht ganz.
Ich brauch halt einfach in der Actiontoolbar zwei Aktionsbuttons mit weiter und zurück mit denen ich schnell durch die Datensätze scrollen kann!

[marabu]

Hallo,

ich denke nach wie vor, dass ActionButtons keine geeignete Lösung für das Scrollen in einem Grid sind, aber technisch kannst du es so lösen: Den beiden ActionButtons für DatasetPrior und DataSetNext ordnest du diesen shared event handler zu:

Delphi-Quellcode:

procedure TDemoForm.DataSetScrollExecute(Sender: TObject);
begin
  Timer.Enabled := not Timer.Enabled;
  Timer.Tag := Integer(Sender);
end;

Timer.Enabled setzt du im OI auf False und das Intervall auf 50. Die Timer-Routine kann dann so aussehen:

Delphi-Quellcode:

procedure TDemoForm.TimerTimer(Sender: TObject);
begin
  if TObject(Timer.Tag) is TDataSetPrior
    then Table.Prior
    else Table.Next;
  with TAction(Timer.Tag) do
    Timer.Enabled := Enabled;
end;

So machst du aus den Schaltern im ActionToolBar Zustands-Schalter, die Aktionen sind in den Timer ausgelagert. Verstehst du mich jetzt?

Freundliche Grüße