I designed a main form, put a Panel controls in the main form, the Panel control code loaded three form
The form a
If not Assigned (FMMian) then
The begin
Application CreateForm (TFMMian FMMian);
FMMian. Parent:=sPmin;
FMMian. WindowState:=wsMaximized;
FMMian. BorderStyle:=bsNone;
FMMian. Show;
End the else
The begin
FMMian. BringToFront;
end;
The form 2
If not Assigned (FMDC) then
The begin
Application CreateForm (TFMDC FMDC);
FMDC. Parent:=sPmin;
FMDC. WindowState:=wsMaximized;
FMDC. BorderStyle:=bsNone;
FMDC. Show;
End the else
The begin
FMDC. BringToFront;
end;
Question: when the form a BringToFront press the keyboard response FormKeyUp (Sender: TObject; Var Key Word;
Shift: TShiftState); Response form two FormKeyUp events, the program first, and then to form a FormKeyUp
Consult:
How to form BringToFront keyboard response to an event for only this form!

CodePudding user response:

FMDC. BringToFront;
After add
The SetForegroundWindow (FMDC. Handle);

CodePudding user response:

No use ah???/