diff options
Diffstat (limited to 'examples/apps/uidesigner/newformdesigner.pas')
-rw-r--r-- | examples/apps/uidesigner/newformdesigner.pas | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/examples/apps/uidesigner/newformdesigner.pas b/examples/apps/uidesigner/newformdesigner.pas index 4bd4c4c6..175e4fa6 100644 --- a/examples/apps/uidesigner/newformdesigner.pas +++ b/examples/apps/uidesigner/newformdesigner.pas @@ -635,11 +635,13 @@ end; procedure TfrmProperties.HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); begin - if (keycode = keyEnter) or (keycode = keyF11) then + if keycode = keyF11 then begin if maindsgn.selectedform <> nil then + begin maindsgn.selectedform.Form.SetFocus; -// GfxActivateWindow(maindsgn.selectedform.Form.WinHandle); + maindsgn.selectedform.Form.ActivateWindow; + end; consumed := True; end else |