unit Unit1;
//download by http://www.codefans.net
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, 3, 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.
上述代碼delphi2010編譯后在win7沒有效果，求助如何實作
uj5u.com熱心網友回復：
樓主該去找些資料畫非客戶區的訊息是那些！uj5u.com熱心網友回復：
在OnPaint事件中繪制一個矩形即可uj5u.com熱心網友回復：
我貼一下我的代碼：procedure TForm1.WMNCPaint(var Message: TWMNCPaint);
begin
DrawTitle;
Message.Result := 1;
end;
procedure TForm1.WMNCCALCSIZE(var msg: TMessage);
begin
with TWMNCCALCSIZE(msg).CalcSize_Params^ do
begin
Inc(rgrc[0].Left, CFRAMEW);
Inc(rgrc[0].Top, CTITLEHEIGTH);
Dec(rgrc[0].Right, CFRAMEW);
Dec(rgrc[0].Bottom, CFRAMEW);
end;
msg.Result := 0;
inherited;
end;
procedure TForm1.DrawCaption;
var
CaptionBmp: TBitmap;
DC: HDC;
C: TCanvas;
R: TRect;
Style: DWORD;
begin
C := TCanvas.Create;
DC := GetWindowDC(Handle);
try
C.Handle := DC;
C.Brush.Color := FColor;
C.FillRect(Rect(0, 0, Width, CTITLEHEIGTH)); //標題
C.Brush.Color := FColor;
C.FillRect(Rect(0, 0, CFRAMEW, Height)); //左邊
C.Brush.Color := FColor;
C.FillRect(Rect(Width - CFRAMEW, 0, Width, Height)); //右邊
C.Brush.Color := FColor;
C.FillRect(Rect(0, Height - CFRAMEW, Width, Height)); //底邊
finally
C.Free;
ReleaseDC(Handle, DC);
end;
end;
你基本處理這幾個訊息就可以畫邊框了！
uj5u.com熱心網友回復：
DrawTitle; 修改為： DrawCaptionuj5u.com熱心網友回復：
constCFRAMEW = 2;
CTITLEHEIGTH = 50;
CHITTESTWIDTH = 1; //HitTest預留厚度
這些是常量
uj5u.com熱心網友回復：
procedure TFMain.DrawLine;var
dc: hDc;
Pen: hPen;
OldPen: hPen;
OldBrush: hBrush;
begin
dc := GetWindowDC(Handle);
Self.Refresh;
Pen := CreatePen(PS_SOLID, 1, RGB(0, 0, 200));
OldPen := SelectObject(dc, Pen);
OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));
RoundRect(dc,0,0,Width - 1,Height - 1,10,10);
SelectObject(dc, OldBrush);
SelectObject(dc, OldPen);
DeleteObject(Pen);
Pen := CreatePen(PS_SOLID, 1, RGB(137, 245, 255));
OldPen := SelectObject(dc, Pen);
OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));
RoundRect(dc,1,1,Width - 2,Height - 2,10,10);
SelectObject(dc, OldBrush);
SelectObject(dc, OldPen);
DeleteObject(Pen);
ReleaseDC(Handle, Canvas.Handle);
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/122315.html
標籤：VCL組件開發及應用
上一篇：人工免疫函式優化