Neuer Datensatz automatisch erstellen

[MrSpock]

Hallo Megabyte,

ich würde das in die OnActivate Methode packen, damit es aber nur bei der ersten Aktivierung ausgeführt wird, benutze ich eine Variable FirstTime: Boolean, die in OnCreate auf True gesetzt wird, dann kann man bei OnActivate folgendes machen:

Delphi-Quellcode:

if FirstTime then
begin
  FirstTime := False;
  MyTable.Open;
  MyTable.Append
end
else ...

Dem OnNewRecord Event der TTable erklärt man jetzt, welche Daten vorzubesetzen sind:

Delphi-Quellcode:

  MyTableFeld1.AsString := 'Blabla';
  MyTableFeld2.AsInteger := 17;

Damit ist die Tabelle automatisch im Edit Mode und die Felder sind vorbesetzt.

Denke eventuell daran bei OnClose die Tabelle zu schließen und ggf. FirstTime wieder auf True zu setzen.