Form ohne Taskleisten-Button

[Helmi]

Ich hab jetzt selbst eine Lösung gefunden. Ich finde sie aber nicht sehr schön:

Delphi-Quellcode:

procedure TForm1.OnFShow(Sender: TObject);
begin
  with f do
    begin
      ShowWindow(Handle, SW_HIDE );
      SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or
                    WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
      ShowWindow(Handle, SW_SHOW );
    end;

  If not Application.MainForm.Visible then
    begin
      with Application do
        begin
          ShowWindow(Handle, SW_HIDE );
          SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or
                        WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
          ShowWindow(Handle, SW_SHOW );
        end;
    end;
end;