void __fastcall TForm1::FormCreate(TObject *Sender)
{ 
 long wsex=::GetWindowLongPtr(Handle,GWL_EXSTYLE);
  wsex |= WS_EX_NOACTIVATE;
  ::SetWindowLongPtr(Handle,GWL_EXSTYLE,wsex);
}

引言: void __fastcall TForm1::FormCreate(TObject *Sender) { long wsex=::GetWindowLongPtr(Handle,GWL_EXSTYLE); wsex |= WS_EX_NOACTIVATE; ::SetWindowLongPtr(Handle,GWL_EXSTYLE,wsex); }

LONG_PTR GetWindowLongPtr(
    HWND hWnd,
    int nIndex
);
LONG_PTR SetWindowLongPtr(
    HWND hWnd,
    int nIndex,
    LONG_PTR dwNewLong
);

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 long wsex=::GetWindowLongPtr(Handle,GWL_EXSTYLE);
 //wsex |= WS_EX_APPWINDOW;
 ::SetWindowLongPtr(Handle,GWL_EXSTYLE,wsex);
}

引言: wsex |= WS_EX_NOACTIVATE;

引言: 可是不用的話就沒辨法在任意文章key上

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 long wsex=::GetWindowLongPtr(Handle,GWL_EXSTYLE);
 wsex |= WS_EX_APPWINDOW;
 ::SetWindowLongPtr(Handle,GWL_EXSTYLE,wsex);
}

引言:對不起，小弟理解能力有限，這句話我領悟不到其中的精髓。從MSDN上找到相關的解釋: WS_EX_NOACTIVATE A top-level window created with this style cannot be activated. If a child window has this style, tapping it will not cause its top-level parent to be activated. A window that has this style will receive stylus events, but neither it nor its child windows can get the focus. 換成這樣試試呢: void __fastcall TForm1::FormCreate(TObject *Sender) { long wsex=::GetWindowLongPtr(Handle,GWL_EXSTYLE); wsex |= WS_EX_APPWINDOW; ::SetWindowLongPtr(Handle,GWL_EXSTYLE,wsex); }

引言: 你的程式跟我想要的是一樣的結果 不過我不知道怎麼寫才有辨法在移動時不用WS_EX_NOACTIVATE 停下來時，又有WS_EX_NOACTIVATE的效果 因為我看不到你寫的code

請問您指的是什麼效果? 在我的程式中完全沒有用到 WS_EX_NOACTIVATE 因為我不會用... 另外，bigdogchina 版主向您問的

引言: 可是不用的話就沒辨法在任意文章key上

這句話我也完全看不懂 您想要的功能是什麼? 如果您先使用了錯誤的方法， 也要求別人要使用這個方法來解決，這就太難了。 如果您只要您的視窗是最上層顯示，那站內也有許多文章說明 如何讓視窗在最上層顯示。因為 < href="http://delphi.ktop.com.tw/topic.php?TOPIC_ID=55289" target="blank">StatPlus2系統資源監測器 就只是設定最上層顯示而已， 沒有什麼技巧。 如果您的程式也像 StatPlus2系統資源監測器 一樣沒有標題列， 可以參考: http://delphi.ktop.com.tw/topic.php?topic_id=37720 http://delphi.ktop.com.tw/topic.php?topic_id=43132 http://delphi.ktop.com.tw/topic.php?topic_id=50295 來移動表單，這些都不會用到 WS_EX_NOACTIVATE 所以囉，把您想要的功能先說清楚，講明白，而不只是片段，這樣別人才好幫您喔 < href="http://dllee.ktop.com.tw" target="blank">吃軟也吃硬 dllee.ktop.com.tw 視動科技 VMASK - ViewMove Automation Software Kernel

引言:可是不用的話就沒辨法在任意文章key上

上面的圖就是我的說的意思 dllee大大、bigdogchina大大~ 不好意思讓你們暈頭轉向，我的表答很差請多多包涵 我也不知道有沒有其他的方法也~ 在文件檔或有游標可以輸入的地方，我寫的鍵盤都可以輸入， 是因為我加入了

 void __fastcall TForm1::FormCreate(TObject *Sender)
{ 
 long wsex=::GetWindowLongPtr(Handle,GWL_EXSTYLE);
  wsex |= WS_EX_NOACTIVATE;
  ::SetWindowLongPtr(Handle,GWL_EXSTYLE,wsex);
}

不過也因為WS_EX_NOACTIVATE 讓我在移動整個鍵盤時看不見托移過程 所以我才很納悶，用也不是不用也不是 後來你po上了你寫的程式 那個程式有我想要的功能 在我移動時執行wsex &= ~WS_EX_NOACTIVATE; 指漂指到別的地方時執行wsex |= WS_EX_NOACTIVATE; 這不是不可能，不過有個難處 就是在form表最上面的藍色部份沒辨法控制 如果大大有好的意見要告訴小弟~ ~我還在學習狀態希望多多向您學習~ 發表人 - kraen4468 於 2004/09/15 10:23:30

    ReleaseCapture();
    // Perform( WM_SYSCOMMAND, 0xf012, 0 );
    Perform(WM_SYSCOMMAND, SC_MOVE | 2, 0);
    Application->ProcessMessages();

  if(bMouseDown)
  {
    this->Left+=X-iDownX;
    this->Top+=Y-iDownY;
  }

void __fastcall TForm1::FormCreate(TObject *Sender)
{
long wsex = WS_EX_NOACTIVATE; 
::SetWindowLong(Handle,GWL_EXSTYLE,wsex);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  scancode = (BYTE)MapVirtualKey(0X65, 0);
    keybd_event(0X65,scancode,0,0);
    keybd_event(0X65,scancode,KEYEVENTF_KEYUP,0);
}
 

引言:我是不清楚使用 WS_EX_NOACTIVATE 時是如何傳按鍵資料給其他視窗? 不需要 PostMessage 嗎? WS_EX_NOACTIVATE 是螢幕小鍵盤專用的屬性嗎?

void __fastcall TForm1::FormCreate(TObject *Sender)
{
long wsex = WS_EX_NOACTIVATE; 
::SetWindowLong(Handle,GWL_EXSTYLE,wsex);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  scancode = (BYTE)MapVirtualKey(0X65, 0);
  keybd_event(0X65,scancode,0,0);
  keybd_event(0X65,scancode,KEYEVENTF_KEYUP,0);
}