怎么开发一个带标题栏的panel，并在右上角带关闭按钮的

shansheng 2005-11-08 07:28:08

怎么开发一个带标题栏的panel，并在右上角带关闭按钮的
类似ThemeEngine中的TeHeaderPanel
没做过控件，不知道该怎么做

...全文

612 20 打赏收藏转发到动态举报

写回复

用AI写文章

20 条回复

切换为时间正序

请发表友善的回复…

发表回复

shansheng 2005-12-14

打赏
举报

kankanzaishuo

shansheng 2005-12-02

打赏
举报

谢谢 wizardqi(男巫)

wizardqi 2005-12-02

打赏
举报

由于急着回家，所以有些地方不太尽人意，不过可以给楼主提供个方案。

wizardqi 2005-12-02

打赏
举报

由于急着回家，所以有些地方不太尽人意，不过可以给楼主提供个方案。

wizardqi 2005-12-02

打赏
举报

unit TitlePanel;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, ExtCtrls, Forms, StdCtrls,Buttons;

type
TTitlePanel = class(TCustomPanel)
private
HTopPanel:TPanel;
HTitleLabel:TLabel;
HCloseBtn:TBitBtn;
FTitle: String;
FOnClose: TNotifyEvent;
procedure SetTitle(const Value: String);
procedure SetTitleFont(const Value: TFont);
procedure CloseBtnClick(Sender:TObject);
function GetTitleFont: TFont;
procedure SetOnClose(const Value: TNotifyEvent);
protected
procedure CreateParams(var Params: TCreateParams); override;
public
constructor Create(AOwner: TComponent); override;
property DockManager;
published
property TitleFont:TFont read GetTitleFont write SetTitleFont;
property Align;
property Alignment;
property Anchors;
property AutoSize;
property BevelInner;
property BevelOuter;
property BevelWidth;
property BiDiMode;
property BorderWidth;
property BorderStyle;
property Title:String read FTitle write SetTitle stored True;
property Color;
property Constraints;
property Ctl3D;
property UseDockManager default True;
property DockSite;
property DragCursor;
property DragKind;
property DragMode;
property Enabled;
property FullRepaint;
property Font;
property Locked;
property ParentBiDiMode;
property ParentBackground;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
property OnCanResize;
property OnClick;
property OnConstrainedResize;
property OnContextPopup;
property OnDockDrop;
property OnDockOver;
property OnDblClick;
property OnDragDrop;
property OnDragOver;
property OnEndDock;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnGetSiteInfo;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnResize;
property OnStartDock;
property OnStartDrag;
property OnUnDock;
property OnClose:TNotifyEvent read FOnClose write SetOnClose;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Samples', [TTitlePanel]);
end;

{ TTitlePanel }

procedure TTitlePanel.CloseBtnClick(Sender: TObject);
begin
Visible:=False;
if Assigned(FOnClose) then FOnClose(Sender);
end;

constructor TTitlePanel.Create(AOwner: TComponent);
begin
inherited;
HTopPanel:=TPanel.Create(Self);
with HTopPanel do
begin
Height:=24;
Align:=alTop;
Parent:=Self;
BevelInner:=bvLowered;
end;
HCloseBtn:=TBitBtn.Create(HTopPanel);
with HCloseBtn do
begin
Top:=1;
Left:=1;
Width:=22;
Height:=22;
Kind:=bkCancel;
Caption:='';
Parent:=HTopPanel;
OnClick:=CloseBtnClick;
end;
HTitleLabel:=TLabel.Create(HTopPanel);
with HTitleLabel do
begin
Top:=2;
Left:=25;
Parent:=HTopPanel;
Caption:=FTitle;
end;
end;

procedure TTitlePanel.CreateParams(var Params: TCreateParams);
const
BorderStyles: array[TBorderStyle] of DWORD = (0, WS_BORDER);
begin
inherited CreateParams(Params);
FTitle:=Params.Caption;
HtitleLabel.Caption:=FTitle;
Params.Caption:='';
end;

function TTitlePanel.GetTitleFont: TFont;
begin
Result:=HTitleLabel.Font;
end;

procedure TTitlePanel.SetOnClose(const Value: TNotifyEvent);
begin
FOnClose := Value;
end;

procedure TTitlePanel.SetTitle(const Value: String);
begin
FTitle := Value;
HtitleLabel.Caption:=FTitle;
end;

procedure TTitlePanel.SetTitleFont(const Value: TFont);
begin
HTitleLabel.Font.Assign(Value);
end;

end.

setdefault 2005-12-02