habe auf meiner Hauptform eine TActionList mit 2 Actions
1. Bearbeiten
2. Hinzufügen
ich möchte dies in einer nebenform abfragen. welche action ausgelöst wurde.
nur so springt er mir über meine if-abfrage und gibt an das in sender nichts drin steht.
Delphi-Quellcode:
if Sender = fMain.TAEinfuegen then
begin
if fMain.TB1.Locate('Seriennummer', EdtSerial.Text, []) = False then
begin
EString := 'INSERT INTO ....';
end
else begin
ShowMessage('Seriennummer ist schon vorhanden!');
ModalResult := mrNone;
Exit;
end;
end
else if Sender = fMain.TABearbeiten then
begin
EString := 'UPDATE ....';
end;
fMain.DBCom.CommandText := EString;
fMain.DBCom.Execute;
im vorraus vielen dank
lg missi