Pokial chceme prechadzat data tak ze uzivatel klikne na nejake tlacitko a nasa tabulka sa preroluje napriklad na posledny zaznam mozeme na to pouzit komponentu TDBNavigator. Tato komponenta sa nachadza v sade komponent "Data Controls". Obsahuje niekolko tlacitok, nebudem popisovat, ktore na co sluzi, len si skusime na priklade tuto komponentu zapojit.

Pokracujeme z prikladu uvedeneho v tomto clanku: http://bluesnake.blog.pravda.sk/detail-delphi-a-mysql---ako-poziadat-server-o-data.html

1.Takze vlozme si komponentu TDBNavigator na nas formular a vo vlastnotiach tejto komponenty zmente vlastnost DataSource na DataSource1.
2.Vo vlastnotiach este najite vlastnost VisibleButtons rozbalte ju a nastavte na False vsetky tlacitka okrem: nbFirst, nbPrior, nbNext, nbLast 

A to je vlastne vsetko. Akonahle spustite aplikaciu tak s pouzitim sipok sa zacne kurzor zaznamu posuvat.

Ale niekedy potrebujeme posuvat za pomoci vlastnych tlacitok. Ako na to. Je to jednoduche.

1.Odstrante komponentu TDBNavigator z predosleho prikladu a na formular si vlozte 4 komponenty TButton.

2.Vlastnosi Name a Caption u jednotlivych tlacitok nastavte nasledovne

Vlastnost Name: BtFirst, BtPrior, BtNext, BtLast
Vastnost Caption: Prvý, Predošlí, Dalsi, Posledny

3.Ku kazdemu tlacitku vytvorte udalost OnClick a doplne do nich kod:

procedure TForm1.BtFirstClick(Sender: TObject);
begin
  //Skoc na prvy zaznam
  ZQuery1.First;
end;

procedure TForm1.BtLastClick(Sender: TObject);
begin
  //Skoc na posledny zaznam
  ZQuery1.Last;
end;

procedure TForm1.BtNextClick(Sender: TObject);
begin
  //Skoc na dalsi zaznam
  ZQuery1.Next;
end;

procedure TForm1.BtPriorClick(Sender: TObject);
begin
  //Skoc na predosli zaznam
  ZQuery1.Prior;
end;

No a neostava nic ine iba spustit nasu aplikaciu.