Form reagiert nicht auf Sender in der procedure onkeypress

[sakura]

Die Abfrage nach dem Sender wird in dem Moment interessant, wenn man mehreren Objekten die gleiche Ereignisroutine zuweist. Z.B.: Du hast mehrere Editfelder, wo die Werte numerisch sein müssen dann kannst Du folgendes im OnExit Ereignis machen

Delphi-Quellcode:

procedure Form1.NumEditOnExit(Sender: TObject);
begin
  if Sender is TEdit then
  try
    StrToInt(TEdit(Sender).Text);
  except
    ShowMessage('Der angegebene Wert ist nicht numerisch!');
    TEdit(Sender).SetFocus;
  end
end;