Hilfe bei onExit-Ereignis

[sh17]

Ja

Die Codes aller OnExits in eine Procedure packen und beim Speichern aufrufen

Delphi-Quellcode:

procedure TForm1.CheckInput; 
begin 
try 
  if (StrToInt(Edit16.Text)< 200) and not (StrToInt(Edit16.Text)= 0)then 
    begin 
      MessageDlg('  Guthaben muss zwischen 200 und 999 oder bei 0 liegen!  ' + #13#10 + 
                 '  Bitte korrigieren Sie die Eingabe!  ', mtError, [mbOK], 0); 
      ActiveControl := Edit16; 
    end; 
except 
  on EConvertError do 
    Edit16.Text := '000'; 
  end; 

  //und so weiter

end;