Hab ich schon. Aber hier nochmal die komplette Procedure:
Delphi-Quellcode:
procedure TForm1.bsSkinDBNavigator1Click(Sender: TObject;
Button: TbsNavigateBtn);
begin
try
bsSkinLabel1.Caption := IntToStr(form1.ASQLite3Table1.RecNo) + ' / ' + IntToStr(form1.ASQLite3Table1.RecordCount);
except
showmessage('test');
end;
Eigentlich nix großes... ich kapier das nicht...