Formular mit TEdit als Pflichtfeld mit Button.OnClick beenden

**pischti**

Hallo zusammen,

ich habe ein Formular mit einem Pflichtfeld TEdit. Diese prüfe ich auf "Leer" nach OnExit was ja soweit auch funktioniert. Jetzt ist aber so, dass das Formular auch ein Beenden Button enthält, worüber ich jeder Zeit das Formular schließen möchte.

Wie kann ich in dem Ereignis OnExit abfragen, ob das Feld durch Klick auf das nächste Feld oder durch Button klick verlassen wurde?

Ich habe schon mit Sender versucht, aber ohne Erfolg. Als Klassenname kommt nur TEdit an.

markieren

Code:

			procedure TEinbuchenForm.txtEanArtNrExit(Sender: TObject);

begin

  {

    ShowMessage(Sender.ClassName);

  if Sender = btnBeenden then

    ShowMessage('Beenden wurde geklickt');

  }

  if txtEanArtNr.Text = '' then

  begin

    if Dialogs.MessageDlg('Eingabe von EAN oder Artikelnummer erforderlich!' +

      chr(10) + 'Einbuchen fortsetzen?', mtWarning, [mbYes, mbNo], 0, mbYes) = mrYes

    then

    begin

      txtEanArtNr.SetFocus;

    end

    else

      Close;

  end

  else

  begin

    // Artikel anhand von EAN oder Artikelnummer suchen

    qryArtikel.Close;

    qryArtikel.Sql.Clear;

    SQLBefehl := 'SELECT * FROM artikel WHERE art_ean_nr = ''' +

      txtEanArtNr.Text + '''';

Danke schon mal für die Hilfe
Pischti

Formular mit TEdit als Pflichtfeld mit Button.OnClick beenden

Formular mit TEdit als Pflichtfeld mit Button.OnClick beenden

Forumregeln