继承TImagine类,增加一个可以显示Caption功能,望各位高手指点,谢谢
谁有相关的好资料推荐,一样谢谢,呵呵
谁有相关的好资料推荐,一样谢谢,呵呵
解决方案 »
- 在image上绘制是怎么擦除(异或方式得到的不是想要的结果)
- 【在线等,马上给分】修改树节点后刷新树,怎么定位刚才修改的节点?
- 事务的问题(紧急,在线等)
- 怎样开发个ie插件使用户submit某个表单的时候能同时弹出新的一个IE窗口并得到submit的数据?
- 如何判断Edit1.Text是不是数字?最好有代码。
- 关于image,第一个解决问题者有30分
- Dialogs和QDialogs是怎么回事???
- 请问的VB的资源文件是哪个? 我怎么取出ToolImageLists中的图标?
- 请人写一个大智慧L2自动截屏软件
- 请问如何更换托盘图标?
- 关于rave报表的自动计算问题
- 关于窗口融合技术,谢谢!
private
FLabel:TLabel;
FCaption:String;
procedure SetCaption(Val:string);
.......
pulished
property Caption:string read FCaption write SetCaption;
.........construcor TMyImage.Create(AOwner:TComponent);
begin
inherited Create(AOWner);
FLabel:=TLabel.Create(Self);
.........
end;
destructor TMyImage.Destroy;
begin
FLabel.Free;
inherited Destroy;
end;
........
procedure TMyImage.SetCaption(Val:String);
begin
FLabel.Caption:=val;
end;
........
procedure WMSize(var Msg : TWMSize); message WM_SIZE;......procedure TMyImage.WMSize(var Msg : TWMSize);
begin
FLabel.Left := Left;
FLabel.Top := Top + Height;
end;
另外在SydPink(Miss Syd.Barrett)的代码中漏了一句很重要的:construcor TMyImage.Create(AOwner:TComponent);
begin
inherited Create(AOWner);
FLabel:=TLabel.Create(Self);
FLabel.Parent := Self;//就是这一句
.........
end;