請大家指教,謝謝了.

在form的private部分加上 procedure WMMouseActivate(Var msg: tmessage); message WM_MOUSEACTIVATE; procedure tIMEform.WMMouseActivate(var msg: tmessage); begin msg.result := MA_NOACTIVATE; end; 處理onActivate, 其中mainform為focus所在的form: procedure tIMEform.FormActivate(Sender: TObject); begin if assigned(mainform) then if mainform.visible then begin Windows.SetFocus(mainform.Handle); if application.MainForm=mainform then Windows.SetFocus(application.handle); end; end;

謝謝歸木淡兄,小弟試看看,感謝您的熱心與專業.

歸木淡兄,我是用 Borland C++開發,宣告如下.
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_MOUSEACTIVATE, TMessage, WMMouseActivate)
END_MESSAGE_MAP(TForm)

//---------------------------------------------------------------------------
void __fastcall TMainForm::WMMouseActivate(TMessage &Message){
Message.Result = MA_NOACTIVATE;
}

當我點下 Mouse 在 form 上時,有觸動這個 function, 但是 focus 一樣移到這個 form 上( Title 變成深藍色表示 focus 切換),是不是尚需做啥? and 您第二段處理 OnActive 應該是
void __fastcall TMainForm::OnActive(TObject *Sender)
{
::SetFocus(Handle);
}

無法 work,請問是什麼原因?

第二段的 onActivate 不是 mainform 的event， 而是 imeform的event，它使得imeform無法被激法。