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

I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
如果一个程序有多个窗口的话,只有一个窗口是激活的,就是说只能有一个窗口的标题栏是蓝色(激活)的状态,如果要把多个窗口的标题栏都变成激活的状态,可以参考下面的代码:
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;
 

Similar threads

顶部