Abfragen welche Action ausgelöst wurde

[missi]

versteh zwar nur die hälfte aber habe eine lösung gefunden

Delphi-Quellcode:

procedure TfMain.TABearbeitenExecute(Sender: TObject);
begin
  fmAddSNr.EdtSerial.Text := TB1.FieldByName('Seriennummer').AsString;
  fmAddSNr.EdtDescription.Text := TB1.FieldByName('Bezeichnung').AsString;
  fmAddSNr.MEdtDate.Text := TB1.FieldByName('Ablaufdatum').AsString;

  fmAddSNr.ShowModal;
  if fmAddSNr.ModalResult = mrOK then
    UpdateData(1)
end;

procedure TfMain.TAEinfuegenExecute(Sender: TObject);
begin
  fmAddSNr.ShowModal;
  if fmAddSNr.ModalResult = mrOK then
    UpdateData(0)
  end;

ich übergebe einfach meiner funktion die id 1 || 0 und weiss daher woher er kam.

what für nen chaos lach

thx nochmal für die schnelle antwort

lg ela