label控件有一个Alignment属性可以设置为taCenter使caption水平居中，能不能修改它使它具有垂直居中的属性，就象网页那样？(分不够说话)(

label控件有一个Alignment属性可以设置为taCenter使caption水平居中，能不能修改它使它具有垂直居中的属性，就象网页那样？(分不够说话)(50分)<br />label控件有一个Alignment属性可以设置为taCenter使caption水平居中，
能不能修改它使它具有垂直居中的属性，就象网页那样？

真心求教。不甚感激。

找到了一个，那位BCB高手将此代码转成Delphi的：
//---------------------------------------------------------------------------
#ifndef CenteredH
#define CenteredH
//---------------------------------------------------------------------------
#include &lt;vcl/SysUtils.hpp&gt;
#include &lt;vcl/Controls.hpp&gt;
#include &lt;vcl/Classes.hpp&gt;
#include &lt;vcl/Forms.hpp&gt;
#include &lt;vcl/StdCtrls.hpp&gt;
//---------------------------------------------------------------------------
class TCenteredLabel : public TLabel
{
private:
void __fastcall SetDocked(bool ADocked);
void __fastcall SetAuthor(AnsiString anAuthor);
String FAuthor;
bool FDocked;
int HCenter;
int VCenter;

protected:
virtual void __fastcall TCenteredLabel::Loaded(void);
virtual void __fastcall TCenteredLabel:aint(void);
virtual void __fastcall TCenteredLabel::SetParent(TWinControl *AParent);

public:
__fastcall TCenteredLabel(TComponent* Owner);

__published:
__property AnsiString Author={read=FAuthor, write=SetAuthor};
__property bool Docked = {read=FDocked, write=SetDocked, default=true};

};
//---------------------------------------------------------------------------
#endif

layout

Thank you

如果能在label改变大小时动态的改变其字体大小就好了，最好是平滑的，行吗？

接受答案了.