Browse Source

Initially focus OK button on New Disk form.

Jordan Russell 8 months ago
parent
commit
88bb92aee8
1 changed files with 1 additions and 0 deletions
  1. 1 0
      Projects/Src/Setup.NewDiskForm.pas

+ 1 - 0
Projects/Src/Setup.NewDiskForm.pas

@@ -58,6 +58,7 @@ begin
       Filename := AFilename;
       SelectDiskLabel.Caption := FmtSetupMessage(msgSelectDiskLabel2, [IntToStr(DiskNumber)]);
       PathEdit.Text := Path;
+      ActiveControl := OKButton;
       Result := ShowModal = mrOK;
       if Result then
         Path := GetSanitizedPath;