Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Determinar que boton de un TDBNavigator ha sido pulsado - Delphi
Lenguaje de programación Borland Delphi


Podemos determinarlo usando el evento OnClick del propio TDBNavigator.

Un ejemplo:



    procedure TForm1.DBNavigator1Click(Sender: TObject; Button:
    TNavigateBtn);
    var
      BtnName: string;
    begin
      case Button of
        nbFirst  : BtnName := 'nbFirst';
        nbPrior  : BtnName := 'nbPrior';
        nbNext   : BtnName := 'nbNext';
        nbLast   : BtnName := 'nbLast';
        nbInsert : BtnName := 'nbInsert';
        nbDelete : BtnName := 'nbDelete';
        nbEdit   : BtnName := 'nbEdit';
        nbPost   : BtnName := 'nbPost';
        nbCancel : BtnName := 'nbCancel';
        nbRefresh: BtnName := 'nbRefresh';
      end;
      MessageDlg('Botón pulsado: '  + BtnName, mtInformation, [mbOK], 0);
    end;




Publicado el: 2003-09-11

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A