Jump to content

Recommended Posts

Posted

I have a  unidbnavigator and I am trying this code here  on event before action

procedure TMainForm.UniDBNavigator3BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
   if button = nbnext then pr_emfoco := uniMainModule.cdsselected.FieldValues['codigo'] + 1;
   if button = nbprior then pr_emfoco := uniMainModule.cdsselected.FieldValues['codigo']- 1;

end;

When I compile  I get the error Undeclared identifier: 'nbnext'

Two questions:

a) My uses clause is below. Is it missing any thing ?

b)  What is the code to do  a button of unidbnavigator visible/false in runtime ?

My USES clause

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIRegClasses, uniGUIForm, uniGUIBaseClasses, Menus, uniMainMenu, TypInfo,
  uniButton, uniRadioButton, uniEdit, uniBitBtn,unicheckbox, UniScrollBox , UniStringGrid ,

  Data.DB, MemDS, DBAccess, MyAccess,ShellAPI,
  Datasnap.DBClient, UniFSMenuButton, UniFSButton, MLP, uniPanel, uniDBEdit,
  uniLabel, uniMultiItem, uniComboBox, uniMemo, uniRadioGroup, uniChart, StrUtils,
  uniSpeedButton, uniDBNavigator, uniBasicGrid, uniDBGrid, uniDBRadioGroup,
  uniDBComboBox, uniStatusBar, uniImage, uniDBImage, uniProgressBar, uniListBox,
  uniGroupBox, uniPageControl,math, Vcl.StdCtrls, uniHTMLFrame, UniFSKendoUI;

Posted
Just now, Sherzod said:

Uses ... DBCtrls;

 

Thank you Sherzod.  It working well now.

. I tried dbcontrols before but seems that  I did some error when typing it          Rgds

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...