Label的caption中放长箭头？该如何处理

Label的caption中放长箭头？？？？
如何在Label的Caption中录入各种方向的长箭头？如图：
------解决方案--------------------

引用:

Quote: 引用:

直接画布上画出来吧。
或者用image

这种效果也试过了，问题是我的Label放在一个Panel上，当这个Label移动的时候，我的Panel也要一起移动的，其实就是做了一个箭头的效果

这样有什么问题么？
------解决方案--------------------

unit Unit1;


interface


uses

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

  Dialogs, StdCtrls;


type

  TForm1 = class(TForm)

    lbl1: TLabel;

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

    procedure LabelWndProc(var m: TMessage); // 给label控件定义一个新的窗口过程

  end;


var

  Form1: TForm1;


implementation


{$R *.dfm}


{ TForm1 }


procedure TForm1.FormCreate(Sender: TObject);

begin

  // 子类化 label 控件，接管其窗口过程

  lbl1.WindowProc := LabelWndProc;

end;


procedure TForm1.LabelWndProc(var m: TMessage);

var

  cc: TControlCanvas; // 控件画布

begin

  if m.Msg = WM_PAINT then

  begin

    cc := TControlCanvas.Create;

    cc.Control := lbl1; // cc 即为该控件的canvas


    // 用 cc 在这里画你的箭头


    cc.Free;

    m.Result := 0; // 返回0表示已处理了该消息

  end;

  lbl1.Dispatch(m); // 消息传递下去

end;


end.