对于桌面上的某个窗口(已知句柄),如何编程隐藏它的边框并重新显示边框(不改变窗口其他特性)???(50分)

happymanfreeman · 2006-09-30

各位:   我有一个小小问题:  对于桌面上的某个窗口(已知句柄),如何编程隐藏它的边框并重新显示边框(不改变窗口其他特性)??  这个小问题居然搜索不到!! 请教高手们.

happymanfreeman · 2006-09-30

该用哪个windowsAPI啊 ??  可叹! 可叹啊 ----

zhangsolomon · 2006-09-30

呵呵何必啊有改属性的还不知足啊呵呵 那这样啊你看看他的属性的原代码，属性的原代码调用的是什么winapi不就出来了呵呵

bmsr · 2006-09-30

有个示范,不是我写的. 你看看就知道了很简单 unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type  TForm1 = class(TForm)  private    procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT;    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.DFM} { TForm1 } procedure TForm1.WMNCPaint(var Msg: TWMNCPaint); var  dc : hDc;  Pen : hPen;  OldPen : hPen;  OldBrush : hBrush; begin  inherited;  dc := GetWindowDC(Handle);  msg.Result := 1;  Pen := CreatePen(PS_SOLID, 5, RGB(255, 0, 0));  OldPen := SelectObject(dc, Pen);  OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));  Rectangle(dc, 0,0, Form1.Width, Form1.Height);  SelectObject(dc, OldBrush);  SelectObject(dc, OldPen);  DeleteObject(Pen);  ReleaseDC(Handle, Canvas.Handle); end; end.

xiammy · 2006-09-30

看看下面这段代码：      CreateStyle := FBorderStyle;      if (FormStyle = fsMDIChild) and (CreateStyle in [bsNone, bsDialog]) then        CreateStyle := bsSizeable;      case CreateStyle of        bsNone:          begin            if (Parent = nil) and (ParentWindow = 0) then              Style := Style or WS_POPUP;            Icons := [];          end;        bsSingle, bsToolWindow:          Style := Style or (WS_CAPTION or WS_BORDER);        bsSizeable, bsSizeToolWin:          begin            Style := Style or (WS_CAPTION or WS_THICKFRAME);            if FPosition in [poDefault, poDefaultSizeOnly] then            begin              Width := Integer(CW_USEDEFAULT);              Height := Integer(CW_USEDEFAULT);            end;          end;        bsDialog:          begin            Style := Style or WS_POPUP or WS_CAPTION;            ExStyle := WS_EX_DLGMODALFRAME or WS_EX_WINDOWEDGE;            AddBiDiModeExStyle(ExStyle);            if not NewStyleControls then              Style := Style or WS_DLGFRAME or DS_MODALFRAME;            Icons := Icons * [biSystemMenu, biHelp];            WindowClass.style := CS_DBLCLKS or CS_SAVEBITS or              CS_BYTEALIGNWINDOW;          end;      end;      if CreateStyle in [bsToolWindow, bsSizeToolWin] then      begin        ExStyle := WS_EX_TOOLWINDOW;        AddBiDiModeExStyle(ExStyle);        Icons := Icons * [biSystemMenu];      end;      if CreateStyle in [bsSingle, bsSizeable, bsNone] then      begin        if (FormStyle <> fsMDIChild) or (biSystemMenu in Icons) then        begin          if biMinimize in Icons then Style := Style or WS_MINIMIZEBOX;          if biMaximize in Icons then Style := Style or WS_MAXIMIZEBOX;        end;        if FWindowState = wsMinimized then Style := Style or WS_MINIMIZE else          if FWindowState = wsMaximized then Style := Style or WS_MAXIMIZE;      end else FWindowState := wsNormal;      if biSystemMenu in Icons then Style := Style or WS_SYSMENU;      if (biHelp in Icons) then ExStyle := ExStyle or WS_EX_CONTEXTHELP;      if csInline in ComponentState then        Style := Style and not WS_CAPTION;      if FormStyle = fsMDIChild then WindowClass.lpfnWndProc := @DefMDIChildProc;    end; 其实Form改变这个外诓，是需要设置Style后，创建窗体形状。不是消息，而是参数

happymanfreeman · 2006-10-01

zhangsolomon  bmsr 和 xiammy: 你们好!            你们都误解了我的意思, 我说的是桌面上一个别人的窗体(我们很容易知道它的句柄), 不是自己建立的窗体,  现在要动态隐藏它的边框并重新显示边框(不改变窗口其他特性), 如何编程啊实现 ??

happymanfreeman · 2006-10-01

如此简单的问题竟然无人知道!!!?????

bmsr · 2006-10-01

我给你代码布线于自己的窗口呀?  dc := GetWindowDC(Handle);//这里是你已知的窗口句柄  msg.Result := 1;  Pen := CreatePen(PS_SOLID, 5, RGB(255, 0, 0));  OldPen := SelectObject(dc, Pen);  OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));  Rectangle(dc, 0,0, Form1.Width, Form1.Height); //这里要用你已知的窗体的大小代替,即知道句柄,那不是问题  SelectObject(dc, OldBrush);  SelectObject(dc, OldPen);  DeleteObject(Pen);  ReleaseDC(Handle, Canvas.Handle); end;

cqwty · 2006-10-01

bmsr的应该可行的。不过回答问题的富翁可以在关键处标明，那就更好了。

happymanfreeman · 2006-10-02

bmsr cqwty: 你们好!   你们的代码是正确的, 可是并没有针对我的问题, 你们曲解了我的意思, 看来人与人的交流真的不容易. 我的意思不是说要在窗口四周加上某种颜色的边框, 而是, 原来窗口是标准的windows窗口, 是有边框的, 现在要隐藏它的边框, 使它变成无边框窗口, 如何编程 , 重新显示原来的边框(不改变窗口其他特性), 如何编程 .

happymanfreeman · 2006-10-02

不用麻烦大家了，　我已经查阅了ＭＳＤＮ，　这种情况是不能实现的，　被windows规则所限制，　大家可去查阅了ＭＳＤＮ．

zhangsolomon · 2006-10-04

呵呵晕哦  实现不了？也是

对于桌面上的某个窗口(已知句柄),如何编程隐藏它的边框并重新显示边框(不改变窗口其他特性)???(50分)

happymanfreeman

Unregistered / Unconfirmed

happymanfreeman

Unregistered / Unconfirmed

zhangsolomon

Unregistered / Unconfirmed

bmsr

Unregistered / Unconfirmed

xiammy

Unregistered / Unconfirmed

happymanfreeman

Unregistered / Unconfirmed

happymanfreeman

Unregistered / Unconfirmed

bmsr

Unregistered / Unconfirmed

cqwty

Unregistered / Unconfirmed

happymanfreeman

Unregistered / Unconfirmed

happymanfreeman

Unregistered / Unconfirmed

zhangsolomon

Unregistered / Unconfirmed

Similar threads