Delphi Zinsrechner

[Marc.]

Zitat von Siggy:

Leider kommt bei Start des Programms immer die Nachricht:

Deaktiviertes oder unsichtbares Fenster kann den Fokus nicht enthalten!

Das ist auch klar! Wie willst du einem Edit-Feld den Focus geben, wenn es noch gar nicht wirklich "existiert" ?
Lösung:

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
begin
  Edit2.SetFocus;
end;

Zur zweiten Frage sagt mir die Delphi-Hilfe folgendes:

Delphi-Quellcode:

uses Dialogs;
var 
  I, Code: Integer;
begin
  { Get text from TEdit control }
  Val(Edit1.Text, I, Code);
  { Error during conversion to integer? }
  if Code <> 0 then
    MessageDlg('Error at position: ' + IntToStr(Code), mtWarning, [mbOk], 0, mbOk);
  else
    Canvas.TextOut(10, 10, 'Value = ' + IntToStr(I));
end;

Val unterstützt bereits eine Fehlerbehandlung, daher ist ein Try-Except-Block absolut überflüssig.