Bladeren bron

Initially focus OK button on New Disk form.

Jordan Russell 8 maanden geleden
bovenliggende
commit
88bb92aee8
1 gewijzigde bestanden met toevoegingen van 1 en 0 verwijderingen
  1. 1 0
      Projects/Src/Setup.NewDiskForm.pas

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

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