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.
