Form1->FormStyle=fsStayOnTop; 

引言: 這個我也試過了~還是不形呢?

這時候您應該將您的程式碼貼上來或是詳述您的環境 好讓有經驗的人幫您看看囉 下面有相關的討論您參考看看囉 < href="http://delphi.ktop.com.tw/topic.php?topic_id=24003">http://delphi.ktop.com.tw/topic.php?topic_id=24003 如何讓視窗顯示在最上層 http://delphi.ktop.com.tw/topic.php?topic_id=25572 將視窗彈出到最上層 的問題 順心 發表人 -

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
FormStyle=fsStayOnTop;
}
void __fastcall TForm1::FormShortCut(TWMKey &Msg, bool &Handled)
{
if(Msg.CharCode == VK_LWIN)
 { Panel1->Color=clLime; }
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, 0, SPIF_SENDCHANGE);
SetForegroundWindow(Application->MainForm->Handle);
}