让程序的多个窗口都保持激活的标题栏

如果一个程序有多个窗口的话，只有一个窗口是激活的，就是说只能有一个窗口的标题栏是蓝色（激活）的状态，如果要把多个窗口的标题栏都变成激活的状态，可以参考下面的代码：

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;