AUf DBNavigator Click reagieren

[Gehstock]

Delphi-Quellcode:

procedure TForm7.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
if Length(DBEdit1.text)> 0 then OpenPic;
 if Button = nbedit then
   begin
    LoadPIC.Visible := True;//TButton
   end;

dadurch soll beim Klick auf den edit Button ein normaler TButton sichtbar werden mit dem ich dann ein Bild laden kann

er wird aber irgendwie nicht sichtbar


Edit Erledigt hatte mich vertan musste "nbInsert" sein

[shmia]

Das ist die falsche Technik! :warn:
Man sollte nicht schauen, welcher Knopf am DBNavigator gedrückt wurde, sondern ob das Dataset seinen Status von dsBrowse nach dsEdit oder dsInsert ändert.
Dazu das Event OnStateChange der DataSource verwenden.

Delphi-Quellcode:

procedure TForm1.DataSource1StateChange(Sender:TObject);
begin
   case (sender as TDataSource).Dataset.State of
     dsBrowse:  MachWas;  
     dsEdit, dsInsert:
        MachWasAnderes;
   end;
end;