Applies toTDUnitDialog
DeclarationProcedure FormShow(Sender: TObject);Implementation
procedure TDUnitDialog.FormShow(Sender: TObject); begin if AutoFocusAction.Checked and RunButton.CanFocus then RunButton.SetFocus; End;