如果一个程序有多个窗口的话，只有一个窗口是激活的，就是说只能有一个窗口的标题栏是蓝色（激活）的状态，如果要把多个窗口的标题栏都变成激活的状态，可以参考下面的代码：
var
DC: HDC;
begin
DC := GetActiveWindow;
// Create your 2nd window
{2nd window}.SetFocus; // For key input!
SendMessage(DC, WM_NCACTIVATE, WA_ACTIVE, 0); // Maintaines active form caption
end;
**************************
{
To show a from/window with an active titlebar, send a WM_NCACTIVATE message to it.
Um eine Form mit aktiver Titelleiste anzuzeigen, kann ihr eine WM_NCACTIVATE
Nachricht geschickt werden.
}
procedure TForm2.FormActivate(Sender: TObject);
begin
SendMessage(Application.MainForm.Handle, WM_NCACTIVATE, Integer(True), 0);
end;