Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - DBNavigator - weitere Befehle ausführen, wenn auf Button


Zemke - So 12.08.07 19:20
Titel: DBNavigator - weitere Befehle ausführen, wenn auf Button
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 - Mo 13.08.07 10:44
user profile iconZemke 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.

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 - Mi 15.08.07 22:17
Funktioniert prima!

Danke


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!