Zitat von
Daniel G:
Außerdem verliert das aktuelle Fenster den Fokus, wenn deine "Liedwechsel-Info" eingeblendet wird. Das ist besonders nervig, wenn man einen Text tippt...
Das stimmt und lässt sich hiermit lösen:
*** Edit : Fehler im Code beseitigt. ***
Delphi-Quellcode:
procedure TfrmInfo.CreateParams(
var Params: TCreateParams);
begin
inherited CreateParams(Params);
if Assigned(frmInfo)
then
begin
Params.WndParent := GetDesktopWindow;
Params.Style := WS_CHILD;
end;
end;
procedure TfrmInfo.FormShow(Sender: TObject);
begin
SetWindowLong(
Handle, GWL_EXSTYLE,
GetWindowLong(
Handle, GWL_EXSTYLE)
or
WS_EX_TOOLWINDOW
and not WS_EX_APPWINDOW);
end;