form.show set focus to underlying Form

Question

D5pro.

I have a sub-form of the main app, Form1 with a Memo1 the the user can add text to.

I have a FormHelp that is only for viewing (contains MemoHelp.ReadOnly:=True).

In Form1 the FormHelp can be displayed by a button click on Form1, or automatically from a check box setting in the Setup.

Form1.OnShow...
if FormSetup.cbHelp.Checked then
  FormHelp.Show;

OR

Form1.BtnHelpClick(...
  FormHelp.Show;

I want to set the focus back to the Memo1 on Form1 after showing the Help window.

I have tried Memo1.SetFocus but that does not work.

I tried this Using WM_SETFOCUS and WM_KILLFOCUS and that did not work

I get an "Can't focus.." error with this How to force a focus on a component before the Form is shown

Can someone please show me how to put focus back to the Memo1

Thank you.

David Heffernan · Accepted Answer · 2013-05-11T22:15:09.690

5

You cannot call SetFocus on a control if its form does not have focus. And after the help form has shown, the memo's form no longer has focus. Instead, the help form has the focus.

So set the focus back to the form:

Form1.ActiveControl := Form1.Memo1;
Form1.SetFocus;

edited May 11 '13 at 22:15

answered May 11 '13 at 19:56

David Heffernan

601,492
42
1,072
1,490

Hi David. Don't teach people bad manners :) You need to call CanFocus before SetFocus! What is Form1 is disabled or invisible? – Gabriel Mar 29 '23 at 14:27

score 1 · Answer 2 · answered May 11 '13 at 18:50

1

FormHelp gains the input focus when it is shown. Try calling BringToFront() on Form1 before then calling Memo1.SetFocus().

answered May 11 '13 at 18:50

Remy Lebeau

555,201
31
458
770

score 0 · Answer 3 · answered May 11 '13 at 18:27

0

Just set the form's ActiveControl, either in the Object Inspector or in your code:

ActiveControl := Memo1;

answered May 11 '13 at 18:27

Ken White

123,280
14
225
444

form.show set focus to underlying Form

3 Answers3