Initially focus OK button on New Disk form.

jrsoftware · Dec 25, 2024 · 88bb92a · 88bb92a
1 parent 54b7211
commit 88bb92a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Projects/Src/Setup.NewDiskForm.pas b/Projects/Src/Setup.NewDiskForm.pas
@@ -58,6 +58,7 @@ function SelectDisk(const DiskNumber: Integer; const AFilename: String;
       Filename := AFilename;
       SelectDiskLabel.Caption := FmtSetupMessage(msgSelectDiskLabel2, [IntToStr(DiskNumber)]);
       PathEdit.Text := Path;
+      ActiveControl := OKButton;
       Result := ShowModal = mrOK;
       if Result then
         Path := GetSanitizedPath;