DELPHI美化界面（2009开始TPanel增加了ParentBackGround）

Posted 2020-09-10 朝闻道

1.透明问题。

要重新调整界面确实很麻烦，以前用DELPHI开发的界面都很土，和WEB真是没办法比。（我以前用的是DELPHI7），现在回想起来，DELPHI难做的原因是：没有透明控件。所有控件都是不透明的，并且大部分控件就是灰色的，一放到窗体上，就像一块膏药一样贴在上面。即使界面上放几副图片也难以和控件的那种灰灰的颜色融合起来。所以，一直在想QQ是怎么开发的。还是挺佩服腾讯那帮家伙的。

后来打开DELPHI2009，竟然发现有些控件支持背景，特别是PANEL控件，比以前增加了一个ParentBackGround属性。这个发现让我激动万分。透明问题解决了一般，虽然不能像WPF或者FLAX那样设置透明度，但是至少能和背景融合，不会像一块膏药了。这样就使得在窗体上放置图片成了可能。

2.按钮控件

随后有产生了一个新的问题，就是按钮。不管用什么类型的按钮，都是灰色的，没有颜色设置属性。即使使用SPEEDBUTTON，FLAT属性设置成TRUE，当鼠标移上去 的时候，还是会出现一个和图片和不吻合的灰框，非常难看。

   

我想要让这个灰框完全和背景融合，根本没办法做到，打开SPEEDBUTTON的代码，在他的Paint方法里发现如下代码：

Details := ThemeServices.GetElementDetails(ToolButton);

ThemeServices.DrawElement(Canvas.Handle, Details, PaintRect);

PaintRect := ThemeServices.ContentRect(Canvas.Handle, Details, PaintRect);

原来DELPHI在画一个按钮的时候，不管如何情况，都需要调用ThemeServices.DrawElement(Canvas.Handle, Details, PaintRect);也就是使用WINDOWS操作系统的主题画一个按钮。而WINDOWS操作系统的主题默认设置是灰的。就是这个原因导致了这个膏药的产生。研究了半天代码，没有发现DELPHI提供如何方法或者事件来屏蔽使用操作系统主题画按钮的这段代码。实在没辙，只能自己写一个SPEEDBUTTON控件。

这个控件很简单，就把SPEEDBUTTON控件的代码抄抄过来，然后屏蔽掉ThemeServices.DrawElement(Canvas.Handle, Details, PaintRect);就可以画一个只有图片的SPEEDBUTTON了。

3.PAGECONTROL

由于我们现在这个项目用到了大量的PAGECONTROL，但是正常情况下这个PAGECONTROL是没有ParentBackGround，同样会在背景上出现一个灰色的边框.

由于项目需要，PAGECONTROL的TAB页还需要增加一个关闭按钮，为了偷懒，用OWNERDROW，自己画了一个X进去，这样的结果导致画面更加难看。边框一条粗粗的线条没办法取消掉。继续研究TABECONTROL代码。发现，当STYLE设置成非tsTabs的时候，就回取消掉边框。

这个发现意味着PAGECONTROL还是可以用的，只不过TAB需要自己画。研究了半天腾讯TT，发现他的PAGECONTROL的头是用图片和一些特效画出来的，其实做起来也挺简单的，只不过要坐一些各种线条的图片。偷个懒，先不用图片画一个。

鉴于前面的发现，现在的PANEL是支持透明的，就用PANEL画一个TAB页的头。

这样就可以用这个控件去控制PAGECONTROL了。当然这个控件的关闭按钮还是使用了SPEEDBUTTON，如果换成前面的自己写的SPEEDBUTTON，并且用图片，就会有很好的效果了。

有了这个基础，在在这些PANEL上设置图片的话，就可以很方便的做到很漂亮的效果了。

4.没有CAPTION的窗体

WINDOWS默认的窗体的最上面都是一个蓝色条的CAPTION，并且右边只有三个系统按钮，如果想自己加一个也不方便。如果整个窗体风格采用图片的画，着条蓝色的先非常不和谐。所以必须取消掉。

   

实现方法很简单，把窗体的BorderStyle设置成bsNone，就没有边框了。然后就是放置图片，由于PANEL支持透明，不存在任何问题，右上方放置3个用前面提到的自己开发的SPEEDBUTTON。然后就是要实现圆角和画边框。

代码如下：

unit Unit1;

   

interface

   

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, HlCaptionPnl, pngimage, StdCtrls;

   

type

TForm1 = class(TForm)

imgLeft: TImage;

HlCaptionPanel1: THlCaptionPanel;

Memo1: TMemo;

imgRight: TImage;

procedure FormCreate(Sender: TObject);

private

hr:THandle;

{ Private declarations }

procedure WMNCHitTest(var Msg:TWMNCHitTest); message WM_NCHITTEST;

procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;

   

procedure DrawFormLine;

procedure CreateHr;

protected

procedure Resize; override;

   

public

{ Public declarations }

end;

   

var

Form1: TForm1;

   

implementation

   

{$R *.dfm}

   

procedure TForm1.CreateHr;

begin

// hr:=CreateRoundRectRgn(0,21,Width,Height,80,80);

hr:=CreateRoundRectRgn(0,0,Width,Height,10,10);

SetWindowRgn(handle,hr,true);

end;

   

procedure TForm1.DrawFormLine;

var

dc: hDc;

Pen: hPen;

OldPen: hPen;

OldBrush: hBrush;

begin

dc := GetWindowDC(Handle);

Self.Refresh;

   

Pen := CreatePen(PS_SOLID, 1, RGB(0, 0, 200));

// Pen := CreatePen(PS_SOLID, 2, RGB(18, 49, 99));

// Pen := CreatePen(PS_SOLID, 1, RGB(0, 255, 0));

OldPen := SelectObject(dc, Pen);

OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));

RoundRect(dc,0,0,Width - 1,Height - 1,10,10);

// RoundRect(dc,1,1,Width - 1,Height - 1 ,15,15);

SelectObject(dc, OldBrush);

SelectObject(dc, OldPen);

DeleteObject(Pen);

   

// Pen := CreatePen(PS_SOLID, 1, RGB(255, 255, 255));

Pen := CreatePen(PS_SOLID, 1, RGB(137, 245, 255));

OldPen := SelectObject(dc, Pen);

OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));

// Self.Refresh;

RoundRect(dc,1,1,Width - 2,Height - 2,10,10);

SelectObject(dc, OldBrush);

SelectObject(dc, OldPen);

DeleteObject(Pen);

   

   

ReleaseDC(Handle, Canvas.Handle);

   

end;

   

procedure TForm1.FormCreate(Sender: TObject);

begin

CreateHr;

   

imgRight.Left := ClientWidth - imgRight.Width;

imgRight.Top := 0;

imgLeft.Left := 0;

imgLeft.Width := imgRight.Left;

imgLeft.Top := 0;

HlCaptionPanel1.ShowButton(\'D:\\Nouse\\delphi2009Test\\界面\\CapPanel2\\Bmp\\Button\\CloseButton.bmp\',

\'D:\\Nouse\\delphi2009Test\\界面\\CapPanel2\\Bmp\\Button\\MaxButton.bmp\',

\'D:\\Nouse\\delphi2009Test\\界面\\CapPanel2\\Bmp\\Button\\MinButton.bmp\',

\'D:\\Nouse\\delphi2009Test\\界面\\CapPanel2\\Bmp\\Button\\RestoreButton.bmp\');

   

end;

   

procedure TForm1.Resize;

begin

inherited;

CreateHr;

end;

   

procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);

var

tmpPoint: TPoint;

const

C_BORDERWIDTH = 4;

begin

tmpPoint.X := Msg.Pos.x;

tmpPoint.Y := Msg.Pos.y;

   

tmpPoint := ScreenToClient(tmpPoint);

   

Memo1.Lines.Add(\'x:\' + IntToStr(tmpPoint.X) + \'y:\' + IntToStr(tmpPoint.X));

if (tmpPoint.x <= C_BORDERWIDTH) and (tmpPoint.y <= C_BORDERWIDTH) then

begin

Msg.Result := HTTOPLEFT;//左上

end else

if (tmpPoint.x <= C_BORDERWIDTH) and (tmpPoint.y >= Height - C_BORDERWIDTH) then

begin

Msg.Result := HTBOTTOMLEFT;//左下

end else

if (tmpPoint.x >= Width - C_BORDERWIDTH) and (tmpPoint.y <= C_BORDERWIDTH) then

begin

Msg.Result := HTTOPRIGHT;//右上

end else

if (tmpPoint.x >= Width - C_BORDERWIDTH) and (tmpPoint.y >= Height - C_BORDERWIDTH) then

begin

Msg.Result := HTBOTTOMRIGHT;//右下

end else

if (tmpPoint.x <= C_BORDERWIDTH) then

begin

Msg.Result := HTLEFT;//左

end;

if (tmpPoint.x >= Width - C_BORDERWIDTH) then

begin

Msg.Result := HTRIGHT;//右

end;

if (tmpPoint.Y <= C_BORDERWIDTH) then

begin

Msg.Result := HTTOP;//上

end;

if (tmpPoint.y >= Height - C_BORDERWIDTH) then

begin

Msg.Result := HTBOTTOM;//下

end;

   

end;

   

procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);

begin

DrawFormLine;

   

   

end;

   

end.

   

这样界面的美化技术工作基本完成了。

主窗体如下：

接下去的工作就是交给美工，制作图片和选择颜色。

5.最后美工给我的结果

（还不是很满意，继续修改）

 

http://blog.csdn.net/zang141588761/article/details/51355221