Formular mit TEdit als Pflichtfeld mit Button.OnClick beenden

[Furtbichler]

Zitat von pischti:

Delphi-Quellcode:

if not (ActiveControl = btnBeenden) then ShowMessage('Beenden wurde NICHT geklickt')
  else ShowMessage('Beenden wurde geklickt');

Das geht einfacher und ohne Gehirnverknotung

Delphi-Quellcode:

if ActiveControl <> btnBeenden then 
  ShowMessage('Beenden wurde NICHT geklickt')
else 
  ShowMessage('Beenden wurde geklickt');
//
// oder gleich
//
if ActiveControl = btnBeenden then 
  ShowMessage('Beenden wurde geklickt')
else 
  ShowMessage('Beenden wurde NICHT geklickt');