相关疑难解决方法(0)

你能在Windows中创建一个没有WS_POPUP样式的无边界应用程序主窗口吗?

我想创建一个窗口,它将成为主窗口,Windows本身将其识别为主应用程序窗口.但是,当我使窗口无边框,并且根本没有任何非客户区域时,Windows不再认识到该窗口是应用程序主窗口.这有几个副作用:

  1. WindowsKey + M最小化除应用程序主窗口之外的所有窗口.

  2. 单击任务栏上的一次(在win7中)然后再次,应该在正常状态和最小化状态之间切换应用程序主窗口的状态/可见性.这对于这样的窗口不起作用.

在简单的Win32编程术语中,我询问dwStyle的参数值,就像调用CreateWindow(WS _...常量)或CreateWindowEx(WS_EX _...常量)一样.对于delphi用户,这些值将在您将覆盖的CreateParams方法中设置,然后设置Params.Style:= WS_xxx; 对于MFC/C++用户和C用户,框架中的某些内容最终将使用此dwStyle值调用CreateWindow.

在delphi术语中,设置form.BorderStyle = bsNone,得到dwStyle = WS_POPUP.但是我想要一个不使用dwStyle = WS_POPUP的无边框窗口.

注意:下面的所有答案都很好,但在生产场景中使用每个答案都是有问题的,而且我试图这样做,导致遇到许多故障,对于专业质量的应用程序,我仍然发现我无法解决.戴维斯的答案是一个很棒的纯Win32 API答案,并且符合要求.似乎工业强度解决方案应该结合多种品质,包括我在上面的问题中所具有的所有品质.简而言之,使用BorderStyle = bsNone(dwStyle = WS_POPUP)的无边框表单会阻止通常应用于应用程序主窗口的所有Windows功能,并且下面的所有解决方案都可以解决部分问题.

基于David的建议,我写了以下内容,但是没有用:我想要一个没有边框的窗口,它在各个方面都像一个Windows应用程序窗口一样,对系统来说,也就是说,它可以通过最小化/恢复单击任务栏中的窗口,WindowsKey + M将最小化.我开始认为这样做的唯一方法是添加非客户端绘制代码并将顶部非客户区域边界调整为零.这当然不是一个微不足道的想法.

事实证明,我在编码中犯了一个简单的错误(因此上面的两段),事实上下面的代码现在按照我的意愿工作.这个是pascal,但它应该很容易转换为C++或其他任何东西.

program NoBorderProject;

uses
  Windows, Messages;
  {the Messages unit contains the windows
  Message constants like WM_COMMAND}

{$R *.RES}

var
  wClass: TWndClass;
  Msg: TMsg;
  win:HWND;
function WindowProc(hWnd,Msg,wParam,lParam:Integer):Integer; stdcall;
begin
 if Msg = WM_DESTROY then PostQuitMessage(0);
 Result := DefWindowProc(hWnd,Msg,wParam,lParam);
end;

begin
 wClass.lpszClassName:= 'CN';
 wClass.lpfnWndProc :=  @WindowProc;
 wClass.hInstance := hInstance;
 wClass.hbrBackground:= 1;
 RegisterClass(wClass); …
Run Code Online (Sandbox Code Playgroud)

delphi winapi visual-c++

8
推荐指数
1
解决办法
7754
查看次数

圆形窗角平滑

您好

我使用windows API调用CreateRoundRgn和SetWindowRgn创建了一个带有圆边的窗口,但是圆角并不像使用GDI +绘制的圆角矩形那样平滑.反正有没有平滑窗口的角落?

procedure TPBSDashboardPanel.DefineWindowRegion;
var
  WindowRegion: HRGN;
begin
  if Assigned(Parent) then
  begin
    WindowRegion := CreateRoundRectRgn(0, 0, Width, Height, 20, 20);

    SetWindowRgn(Handle, WindowRegion, True);
  end;
end;
Run Code Online (Sandbox Code Playgroud)

windows delphi

2
推荐指数
1
解决办法
2492
查看次数

标签 统计

delphi ×2

visual-c++ ×1

winapi ×1

windows ×1