我設計了一個主表單,主表單里放置一個Panel控制元件,Panel控制元件加載了三個表單代碼
表單一
if not Assigned(FMMian) then
begin
Application.CreateForm(TFMMian,FMMian);
FMMian.Parent:=sPmin;
FMMian.WindowState:=wsMaximized;
FMMian.BorderStyle:=bsNone;
FMMian.Show;
end else
begin
FMMian.BringToFront;
end;
表單二
if not Assigned(FMDC) then
begin
Application.CreateForm(TFMDC,FMDC);
FMDC.Parent:=sPmin;
FMDC.WindowState:=wsMaximized;
FMDC.BorderStyle:=bsNone;
FMDC.show;
end else
begin
FMDC.BringToFront;
end;
問題:當表單一BringToFront時按下鍵盤回應FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);時,程式先回應表單二的FormKeyUp事件,再到表單一FormKeyUp
請教:
如何在表單BringToFront時鍵盤回應事件只針對本表單!
uj5u.com熱心網友回復:
FMDC.BringToFront;后添加
SetForegroundWindow(FMDC.Handle);
uj5u.com熱心網友回復:
沒有用呀???/轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/86060.html
標籤:VCL組件開發及應用
