我想用image和lable做一个图片按钮
但是lable的文字却不显示。这是为什么?constructor TImageButton.Create(AOwner: TComponent);
var
lb: TLabel;
begin
inherited Create(AOwner);
FPictureDown := TPicture.Create;
FPictureHot := TPicture.Create;
FPictureDisable := TPicture.Create;
FPictureNormal := TPicture.Create; lb := TLabel.Create(nil);
lb.Width := Width;
lb.Height := Height;
lb.Top := Top;
lb.Left := Left;
lb.Parent := GetParentForm(Self);
lb.Caption := 'aaaaa'; //设置了caption的,创建后却什么都没有
lb.BringToFront;
Invalidate;
end;
但是lable的文字却不显示。这是为什么?constructor TImageButton.Create(AOwner: TComponent);
var
lb: TLabel;
begin
inherited Create(AOwner);
FPictureDown := TPicture.Create;
FPictureHot := TPicture.Create;
FPictureDisable := TPicture.Create;
FPictureNormal := TPicture.Create; lb := TLabel.Create(nil);
lb.Width := Width;
lb.Height := Height;
lb.Top := Top;
lb.Left := Left;
lb.Parent := GetParentForm(Self);
lb.Caption := 'aaaaa'; //设置了caption的,创建后却什么都没有
lb.BringToFront;
Invalidate;
end;
解决方案 »
- 销售表中选择同样的的产品出库时能退出(有图)
- 急急!!请问谁知道怎么在程序里Telnet的自动登陆包括用户名和密码,不能手工输入
- WindowMediaPlay控件为什么不能动态改变大小?
- 求Delphi 5.X ADO/MTS/COM+高级程序设计篇的源代码?
- 小问题,可能你非常清楚。
- 有喜欢听张震恐怖故事的朋友请进来。
- 控件combobox的SetFocus是什么意思,谢谢。
- 如何用程序模拟鼠标的按键活动
- table1.post是用来将表内修改的数据进行保存,请问:用sql怎样才能实现将查找到的数据经过修改过也能保存呢?
- 求救、求救!!!!!!
- 有无办法得到鼠标移动到的位置是不是菜单项。
- 讨论一下关于图形处理软件中的撤消重复功能
注意处理输出文字的长度和宽度与图片的大小比较,在决定文字输出要不要断行或者省略显示之类的。
我是想做一个支持png的按钮,bitbtn和speedbutton都不支持png
有什么其他办法吗
兄弟你是不清楚bmp和PNG有什么区别吧。
我的目的就是使用PNG的透明,有了PANEL,透明就没用了。这个控件就没意义了