請問，如圖，並附上執行檔， 現在的Focus在Form3上，使用鍵盤，會將相對應的按鍵值顯示在Form3上的右上角，可是使用mouse點選左邊的TreeViewc後，在點選Fom3，Form3的滑鼠事件有觸發，但是按鍵的事件就無法觸發，我想是Forcus無法set到Form3，但是Form3的Active屬性能是true,請問有沒有解?     發表人 - taishyang 於 2003/12/30 15:45:01

jason_cyl329您好 咱們又見面啦< > 其實我也想不通耶(你一定想說那幹嘛來回應)< > 不要只放執行檔啦,可以請您將整個程式碼上傳嗎? 小弟也想研究研究... ps.我使用的是BCB5.0,您的版本是?上次您的程式我無法執行說... 可是錯誤訊息應該是漏了什麼檔案...連第2個AnsiString版本也一樣喔 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

------
程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

ENIX007你好，我是想說程式很簡單，應該一看就會，因為我沒有寫任何程式， 只有將一些物件擺上去而已，如果你需要post上去沒問題，你說上次的檔案不能執行，我教你一個方式，你可以在Option中的runtime package的Edit內將沒用的刪除即可(這是我研究好久才發現可以自己編輯)!!

jason_cyl329您好 小弟是有解決方法啦,不過實在是作弊的方法,因為找不到正統做法所以... 問題的確是很奇怪,當 >再切回去 class="code"> void __fastcall TForm2::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { // SendMessage(Form1->TreeView1->Handle, WM_KILLFOCUS, (WPARAM)Form2->Handle, NULL); // SendMessage(Form2->Handle, WM_SETFOCUS, (WPARAM)Form1->TreeView1->Handle, NULL); Form3->Show(); Form3->SetFocus(); Form3->Visible = false; Form2->SetFocus(); } 其中Form3是另一個獨立的Form,它的任務就是出來接個focus,然後功成身退...消失 執行的話畫面會閃一下,然後就 > > 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

------
程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

嘿嘿...提供作弊方法改良版

    Form3->Show();
    Form3->Left = -100;
    Form3->Top = -100;
    Form3->SetFocus();
    Form3->Visible = false;
    Form2->SetFocus();

這下子幾乎不會閃了,因為它出現在遙遠的邊際 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

------
程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

ENIX007你好，你這種方式我有試過，我是在Form上設一個TEdit的原件， 滑鼠點到form後就去focus TEdit把Focus強過來後再Disable它，不論如何 還是感謝你的幫助，如果有新的解法再請你通知我，發表或mail給我均可!!

對不起.... 請問一下....TreeView那個Form的抬頭是如何改成那個樣子阿....? ~~~~~~~~~~~~~~~~~~~~~~ 我什麼都會, 就兩樣不會 就是 這個也不會, 那個也不會

GaryKao99你好， 你應該重新在問一個主題才行喔!!

引言: GaryKao99你好， 你應該重新在問一個主題才行喔!!

嘿嘿嘿....抱歉抱歉 ~~~~~~~~~~~~~~~~~~~~~~ 我什麼都會, 就兩樣不會 就是 這個也不會, 那個也不會