Form的呼叫,消失的Focus
Dear All ,
我有兩個Form , 一個是主Form(Form1) 一個只被顯示的Form(Form2)
其中 Form1上面有一個 Tedit(Edit1).Taborder =0 ,
TButton(Button1).Taborder =1 ,

接著我在 Edit1Onexit 寫下了一段code

procedure TForm1.CrossEdit1Exit(Sender: TObject);
var a : integer;
c : TCanvas;
b : TWinControl;
begin
...
form2.show;
for a:= 0 to 0 do
sleep(1000);
form2.Close;
....
end;

操作動作如下 ,
1. 將游標移到 Edit1 裡面
2. 按下 Tab 鍵

此時所期待的畫面 , 應該是focus 在Button1上面 ,
同時 Button1上面被畫了一個 "小框框" 才對 ,
但是 , 我卻發現 整個畫面好像靜止一班 什麼都沒有反應 ..

當然此時的focus是在button1的 , 但是U.I. 的感覺是失去focus的,
請教各位大大,有什麼想法來解決這類的問題 .

P.S. 1.試過SendMessage ,不管是 WM_SetFocus 或者是自訂訊息 ,然後叫 Form1幫我Setfocus ,
Form1都不鳥
2.當然可以利用TControlCanvas 去draw TButton , 但是如果 Taborder=1的元件換成別的可接受Focus的元件 ,
那判斷的東西就多了..不太可能這樣去implement .
3.如果 Taborder=1 由TButton 換成TEdit , 則游標會不見了 ...

附加檔案：FocusLost.gif

這我也遇過
答案我也是在KTOP找到的
但現在一時找不到該討論串
所以先提供我看到的解決方法

解決方法:
焦點轉移後使用PostMessage
Ex:
PostMessage(Self.ActiveControl.Handle, WM_SETFOCUS, 0, 0);
//這邊傳入要設定Focus的元件Handle即可

先試看看
晚點若是找到原討論串再丟上來

我試過postmessage 是可以的 .. 感恩大大..

但是我還是有一點疑問 , 遺失的focus是怎麼造成的 , setfocus 會失效 ...

反正我答案也是在KTOP找到的
是我該感謝之前的前輩才是

至於Focus消失的問題
我目前也找不出bug在哪
有可能是delphi自己本身的bug也不一定
畢竟在SetFocus之間也沒有做其他的動作
真的挺詭異的