unit ArrowGraphicControlTL; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus;//,bsSkinCtrls; type TArrowDirection=(adUp,adDown,adLeft,adRight,adleftX,adRightX,adX,adLine,adLineX,adLineY, adLineXX,adLineYY,adLineZ); TArrowGraphicControlTL=class(TCustomControl) //TCustomControl,TGraphicControl,TbsSkinPanel private FPen:TPen; FBrush:TBrush; FColor:TColor; FArrowHeight:integer; FFilled:Boolean; FDire ction:TArrowDirection; FArrowDblClick:TNotifyEvent; FPopMenu:TPopupMenu; procedure SetPen(Value:TPen); procedure SetBrush(Value:TBrush); procedure SetColor(Value:TColor); procedure RepaintRequest(Sender:TObject); procedure SetArrowHeight(Value:integer); procedure SetFilled(value:Boolean); procedure SetDirection(Value:TArrowDirection); //消息处理双击 procedure WMLButtonDlbClk(var Msg:TWMLButtonDblClk); message wm_LButtonDblClk; //消息处理双击 protected procedure Paint;override;