TFlatPageControl是什么控件

Question

我安装了Developer Express Inc控件组，打开一个别人开发的文件时，提示Class  TFlatPageControl no found. 这个控件是ExpressPageControl 2下的吗， 我安装了几次ExpressPageControl 2都未成功， 我用dephi7

Answer 1

www.delphifans.com有
flatstyle控件包

Answer 2

我安装了flatstyle控件包，安装成功，里面有很多以flat开头的控件，但是还是提示Class  TFlatPageControl no found

Answer 3

皮肤界面开发源代码 http://www.84250.com

Answer 4

加了路径C:\Program Files\Developer Express Inc\FlatStyle\FlatStyle\Source

Answer 5

还不行，装这个试试！
http://code.icoom.com/2/7842.html

Answer 6

这个控件是很老的, 我帮你找到了但是一个For D6的版本, 你自己升级试试
http://210.21.117.86/down/control/2003081421105013762.rar

Answer 7

好像不是 Developer Express Inc控件组 ，有时用过，还有一个控件是  TFlatPage，他们再一起

Answer 8

我的flat控件里面还真没有TFlatPageControl这一个pas文件，网上搜也没有，是不是从别的地方继承的？

Answer 9

我搜到一个,你看看..unit FlatPageControl;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls;type
  TFlatPageControl = class(TPageControl)
  private
    FFlat: Boolean;
    procedure SetFlat(const Value: Boolean);
  protected
    procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
  public
    constructor Create(Owner: TComponent); override;
  published
    property Flat: Boolean read FFlat write SetFlat;
  end;procedure Register;implementation
procedure Register;
begin
  RegisterComponents('MPack', [TFlatPageControl]);
end;
constructor TFlatPageControl.Create(Owner: TComponent);
begin
  inherited;
  FFlat := False;
end;
procedure TFlatPageControl.SetFlat(const Value: Boolean);
begin
  if FFlat <> Value then
  begin
    FFlat := Value;
    Repaint;
  end;
end;
procedure TFlatPageControl.WMPaint(var Msg: TWMPaint);
var
  R: TRect;
begin
  inherited;
  if FFlat and (Style = tsTabs) and (TabPosition = tpTop) then
  begin
    R := ClientRect;
    R.Top := DisplayRect.Top - 4;
    Canvas.Pen.Color := clBtnFace;
    Canvas.Pen.Width := 3;
    Canvas.PolyLine([Point(R.Left - 1, R.Top), Point(R.Left - 1, R.Bottom)]);
    Canvas.Pen.Width := 2;
    Canvas.PolyLine([Point(R.Left, R.Bottom - 1), Point(R.Right - 1, R.Bottom - 1),
                                    Point(R.Right - 1, R.Top)]);
  end;
end;end.

Answer 10

呵呵,这个更简单..interfacetype
  TFlatPageControl = class(TPageControl)
  protected
    function GetClientRect: TRect; override;
  end;implementationfunction TFlatPageControl.GetClientRect: TRect;
begin
  Result := inherited GetClientRect;
  InflateRect(Result, 4, 4);
end;end.你加入看看...

Answer 11

我的flat控件里面还真没有TFlatPageControl这一个pas文件，网上搜也没有，是不是从别的地方继承的？
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
老版本的flatstyle里有这个控件，不过有bug，后来的新版本没了。