DBNavigator - weitere Befehle ausführen, wenn auf Button

Zemke · Beiträge: 83 WIN XP Delphi 4 Professionell

Ich möchte gerne bei einem DBNavigator weitere Befehle hinter den Buttons hinterlegen.

So soll z. B. hinter dem Button + (hinzufügen) eine weitere Prozedur ablaufen.

In etwa soll es so aussehen:

"Wenn DBNavigator Button xy geklickt wurde, so soll die Hauptfunktion des Buttons ausgeführt und danach die neue hinterlegte Prozedur ausgeführt werden"

Wie funktioniert die "Überwachung", welcher button geklickt wurde und wie bekomme ich die neue Prozedur bzw.
den neuen Prozeduraufruf hier rein?

raiguen · Verfasst: Mo 13.08.07 10:44

Zemke hat folgendes geschrieben:

Wie funktioniert die "Überwachung", welcher button geklickt wurde und wie bekomme ich die neue Prozedur bzw.
den neuen Prozeduraufruf hier rein?

Im OnClick-Ereignis des DBNavigators z.B.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TfrmAdressen.DBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
begin
  //--vereinfacht:
  if Button = nbNext then
    ShowMessage('next gelickt...');
    
  //--wenn mehrere Buttons abgefragt werden sollen:
  case Button of
    nbNext:  Showmessage('next');
    nbRefresh: ...
  end;
end;

Die einzelnen Button-'Bezeichnungen' findest du in der Delphi-Hilfe, Stichwort TNavigateBtn

Zemke · Beiträge: 83 WIN XP Delphi 4 Professionell

Funktioniert prima!

Danke

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme