请大家谈谈如何让软件界面漂漂亮亮的，标题栏菜单栏等都可以自定义？

Question

就象有些软件，界面与普通DELPHI开发的程序窗口完全不一样

Answer 1

使用了第三方控件。如：VCLskin、suipack...

Answer 2

开销太大了，工作要做很多，前面我也回了一个帖子，再贴一次
重画标题栏
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
  private
    { Private declarations }
    procedure WMNCPAint(var Mes : TWMNCPaint); message WM_NCPAINT;
    procedure WMNCACTIVE(var msg: TMessage); message WM_NCACTIVATE;procedure Paint_Caption;  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}
var
  State:Integer;procedure TForm1.WMNCPAint(var Mes : TWMNCPaint);
begin
  inherited;
  Paint_Caption;
end;procedure TForm1.Paint_Caption;
var
  ACanvas : TCanvas;
begin  ACanvas := TCanvas.Create;
  try
    ACanvas.Handle := GetWindowDC(Form1.Handle);
    with ACanvas do begin
      if State=1 then
        Brush.Color :=  clActiveCaption
      else
        Brush.Color :=  clInactiveCaption;      Font.Name := 'Times New Roman';
      Font.Size := 12;
      Font.Color := clYellow;
      Font.Style := [fsBold];      TextOut(GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER),
              Round((GetSystemMetrics(SM_CYCAPTION) - Abs(Font.Height))/2) +1,
              '千堆雪最近不常来了');
////////////////////////////////////////////////////////////////////////////////
    end;
  finally
    ReleaseDC(Form1.Handle, ACanvas.Handle);
    ACanvas.Free;
  end;
end;procedure TForm1.WMNCACTIVE(var msg: TMessage);
begin
  inherited;
  State:=msg.WParam;
  Paint_Caption;
end;end.

Answer 3

自已写控件或者下别人的
不过我觉DELPHI自带的界面还好了，难看也说不上
软件关键还是要好用，实用，才是最重要的

Answer 4

DevExpress_正版可以让你的界面非常漂亮！！

Answer 5

支持   helldream2002()