DeveloperExpress ExpressQuantumGrid Suit

[Darkchild]

Mahlzeit,

eine kurze Frage :

Kennt sich jemand mit den zusatzkomponenten ExpressQuantumGrid Suit aus ?

Möchte nämlich den TCXDBNavigator von denen benutzen, aber ich muss auch auf zwei Buttons von dort (edit und insert) zugreifen um noch ein paar kleine Funktionalitäten dahinter zulegen.

Im Standart DB Navigator habe ich es folgendermaßen gemacht :

Delphi-Quellcode:

If (button = nbedit) or (button = nbinsert) then
...usw.

ging ohne Props, aber ich habe keine Ahnung wie ich bei der neuen Komponente die Buttons ansprechen soll, habe schon unterschiedliche Varianten versucht, aber entweder passen die Datentypen nicht oder auch die Operatoren usw.

Kennt vieleicht jemand die korrekte Syntax dazu ?

Gruss
Darkchild

P.S. : Habe auch in der Hilfe davon nachgeschaut, aber leider nix gefunden was
mir weitergeholfen hätte.

[dataspider]

Hi,

ist total easy:

Delphi-Quellcode:

procedure TForm1.cxDBNavigator1ButtonsButtonClick(Sender: TObject;
  AButtonIndex: Integer; var ADone: Boolean);
begin
  Case AButtonIndex of
    NBDI_EDIT, NBDI_INSERT: // mach was;
    //
  end;
  {
  NBDI_FIRST        = 0;
  NBDI_PRIORPAGE    = 1;
  NBDI_PRIOR        = 2;
  NBDI_NEXT         = 3;
  NBDI_NEXTPAGE     = 4;
  NBDI_LAST         = 5;
  NBDI_INSERT       = 6;
  NBDI_DELETE       = 7;
  NBDI_EDIT         = 8;
  NBDI_POST         = 9;
  NBDI_CANCEL       = 10;
  NBDI_REFRESH      = 11;
  NBDI_SAVEBOOKMARK = 12;
  NBDI_GOTOBOOKMARK = 13;
  NBDI_FILTER       = 14;
  }
end;

Cu, Frank

[Union]

Du erstellst einen Event OnButtonClick:

Delphi-Quellcode:

procedure TForm1.cxDBNavigator1ButtonsButtonClick(Sender: TObject;
  AButtonIndex: Integer; var ADone: Boolean);
begin
   case AButtonindex of
   NBDI_EDIT, NBDI_INSERT : ADone := MessageDlg('Bearbeiten', mtConfirmation, [mbYes, mbNo], 0) <> mrYes;
   end;
end;

[Darkchild]

Vielen Dank,

habe echt viele Schreibweisen ausprobiert, aber von denen war keine dabei :-D .

thx !

Gruss
Darkchild