DBGrid und automatisches Einfügen verhindern

**Jelly**

Ich nutze ein DBGrid zum Editieren einer Datenbanktabelle. Nun möchte ich vermeiden, dass durch einfaches Runterscrollen bis zum Recordsetende automatisch ein neuer Datensatz eingefügt wird. Ich möchte dies nur erlaube, wenn in einem DBNavigator ausdrücklich ein neuer Datensatz angelegt werden soll, d.h. beim Scrollen soll immer nur bis zum letzten Datensatz geblättert werden, nicht mehr und nicht weniger.

**marabu**

Hallo Tom,

du benötigst einen Schalter, den du umlegst, wenn du bewusst einen Datensatz einfügen willst. Ich verwende in meinem Beispiel die property Tag des DataSets, aber du kannst auch einfach eine Zustandsvariable AutoInsert in deine Form aufnehmen.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TDataForm.DBNavigatorClick(Sender: TObject;

  Button: TNavigateBtn);

begin

  with Sender as TDBNavigator do

    DataSource.DataSet.Tag := Ord(Button = nbInsert);

end;

procedure TDataForm.DataSetAfterCancel(DataSet: TDataSet);

begin

  DataSet.Tag := 0;

end;

procedure TDataForm.DataSetAfterPost(DataSet: TDataSet);

begin

  DataSet.Tag := 0;

end;

procedure TDataForm.DataSetBeforeInsert(DataSet: TDataSet);

begin

  if DataSet.Tag = 0 then

    Abort;

end;

Grüße vom marabu

**Jelly**

Danke marabu, klappt so fast.

Nur lautet das richtige Event BeforeAction und nicht OnClick.

Das OnClick Event wird nach der Standardaktion ausgeführt, was mir in diesem Fall ja nix nützt... BeforeAction hingegen wird vor der Standardaktion ausgeführt.

**marabu**

Hast Recht - war beim Kopieren meines eigenen Codes etwas unkonzentriert.

marabu

DBGrid und automatisches Einfügen verhindern

DBGrid und automatisches Einfügen verhindern

Re: DBGrid und automatisches Einfügen verhindern

Re: DBGrid und automatisches Einfügen verhindern

Re: DBGrid und automatisches Einfügen verhindern

Forumregeln

marabu Registriert seit: 6. Apr 2005 10.109 Beiträge	#4 Re: DBGrid und automatisches Einfügen verhindern 23. Mai 2006, 16:54 Hast Recht - war beim Kopieren meines eigenen Codes etwas unkonzentriert. marabu
	Zitat