Formular mit TEdit als Pflichtfeld mit Button.OnClick beenden

[pischti]

Hallo,

ich habe jetzt doch noch eine Lösung gefunden.
Vielleicht hilft sie Anderen
Pischti

Delphi-Quellcode:

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

[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');

[baumina]

Wichtig wäre evtl. noch zu wissen, dass der Button beim Klick nicht unbedingt den Fokus erhält (z.B. Default-Button und Enter oder Cancel-Button und ESC oder über den AccelChar Alt-[Buchstabe]), dann klappt das mit der ActiveControl nur, wenn du im OnClick des Buttons diesen auch mit SetFocus fokussierst.