Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Abfragen welche Action ausgelöst wurde

    Delphi
    by missi, 9. Aug 2005
  versteh zwar nur die hälfte aber habe eine lösung gefunden
  
  
  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;
• Forum: Sonstige Fragen zu Delphi

  Re: Abfragen welche Action ausgelöst wurde

    Delphi
    by missi, 9. Aug 2005
  durch meine ok button von der nebenform
  
  
  
  procedure TfmAddSNr.BtnAddSerialClick(Sender: TObject);
  var
  EString: String;
  begin
  if (EdtSerial.Text <> '') and (EdtDescription.Text <> '') then
  begin
• Forum: Sonstige Fragen zu Delphi

  Re: Abfragen welche Action ausgelöst wurde

    Delphi
    by missi, 9. Aug 2005
  :wiejetzt:
  also *verpeiltschaut*
  
  ich rufe durch die actionlist die gleiche nebenform auf
  und die form soll abfragen woher der klick kam wenn man im nebenform auf ok klickt.
  
  versteh nicht ganz wie ich das in die actionlist integrieren soll bzw im source.
• Forum: Sonstige Fragen zu Delphi

  Abfragen welche Action ausgelöst wurde

    Delphi
    by missi, 9. Aug 2005
  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.
  
  
  if Sender = fMain.TAEinfuegen then