DBR Delphi-Ecke

// Hiermit behalten die Titelleisten von Form1 und von Form2 auch bei
// Deaktivierung durch Anwählen des anderen Fensters ihr Aussehen, als wäre
// das jeweilige Fenster immer noch aktiv. Sinngemäß kann man das auch auf
// mehr als 2 Fenster übertragen.

// Getestet mit D4 unter XP

// In der Hauptform erzeugt man das Ereignis "OnActivate" und trägt dort ein:

procedure TForm1.FormActivate(Sender: TObject); 
begin 
  sendmessage(Form2.handle, WM_NCACTIVATE, 1, 0); 
end;

// Und in Form2:

procedure TForm2.FormActivate(Sender: TObject); 
begin 
  sendmessage(Application.Mainform.handle, WM_NCACTIVATE, 1, 0); 
end;