Einzelnen Beitrag anzeigen

missi

Registriert seit: 7. Aug 2005
Ort: Ddorf
27 Beiträge
 
#1

Abfragen welche Action ausgelöst wurde

  Alt 9. Aug 2005, 10:21
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
  Mit Zitat antworten Zitat