这是我给窗体镶边的代码
但是当窗体属性设置为Form1.borderStyle :=bsNone;无效;
属性设置为Form1.borderStyle :=bsSingle;有效
求高手指点!
var
dc : hDc;
Pen : hPen;
OldPen : hPen;
OldBrush : hBrush;
begin
inherited;
dc := GetWindowDC(WndClassName);
msg.Result := 1;
Pen := CreatePen(PS_SOLID, 1, 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;
但是当窗体属性设置为Form1.borderStyle :=bsNone;无效;
属性设置为Form1.borderStyle :=bsSingle;有效
求高手指点!
var
dc : hDc;
Pen : hPen;
OldPen : hPen;
OldBrush : hBrush;
begin
inherited;
dc := GetWindowDC(WndClassName);
msg.Result := 1;
Pen := CreatePen(PS_SOLID, 1, 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;
解决方案 »
- MDI主窗口打开DLL子窗口后再关闭报内存错误
- mscomm的发送和接收问题
- 用dbedit修改数据的问题(在线等,马上结贴)
- 需求成熟的二甲医院HIS管理系统,顶都有分
- 请问如何锁定键盘和鼠标~~~~~~~~
- 关于做一个类?少了可以再加
- 谁知道delphi7的第三方控件(abc控件、dx控件、rx控件)在什么地方可以下载?
- 请教,如何在delphi7中用servers里的控件连接word
- 用Delphi实现将纯文本资料转入数据库 一文的整理工作
- 有关图形数据的存取?
- 在ACCESS里怎么实现像SQL SERVER里的存储过程的功能,并用Delphi调用呢?
- 高分请教:如何改造DBGRID,使其有合计显示行功能
但是当窗体属性设置为Form1.borderStyle :=bsNone;效果无效;
属性设置为Form1.borderStyle :=bsSingle;效果才有效