Radio Player

[Nils_13]

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;