控件编写问题,新手求救 继承TImagine类,增加一个可以显示Caption功能,望各位高手指点,谢谢谁有相关的好资料推荐,一样谢谢,呵呵 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 是timage吗?参考TLabeledEdit的源码 你想把这个Caption放在那里??把Caption放在画面上?? 直接从TImage类中继承过来,再加入Caption属性,用Canvas自己画用Label放在画面旁边?? 两个控制怎么组合,好多Delphi书上有.... 看《Delphi5开发人员指南》 TLabeledEdit的源码哪里有?谢谢呵呵,小弟新手 TMyImage=class(TImage);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;........ 怎么样让Caption显示在Image的下方??谢谢 我也是看那本書,我想,在CREATE寫上代碼應該可以的 补充一下上面的:private procedure WMSize(var Msg : TWMSize); message WM_SIZE;......procedure TMyImage.WMSize(var Msg : TWMSize);begin FLabel.Left := Left; FLabel.Top := Top + Height;end; TLabeledEdit的源码哪里可以找到?我找不到谢谢 一定可以显示的。把你的代码贴出来大家看看?另外在SydPink(Miss Syd.Barrett)的代码中漏了一句很重要的:construcor TMyImage.Create(AOwner:TComponent);begin inherited Create(AOWner); FLabel:=TLabel.Create(Self); FLabel.Parent := Self;//就是这一句 .........end; 超难问题,散分了,POS.dll调用问题! delphi7制作一个条形码。。。 为什么新建的 Access表 会查不到? IntraWeb7开发的数据库能否在linux系统中运行 控制ListboBox的ItemHeight的高度 如何在 dbgrid 和 stringGrid 中实现不,当按完回车键,焦点移到下一格或右边的一格。 请问如何设置TStringGrid的属性才能在其中写入文字? 询问一个SQL算法。 关于ADO的问题 procedure用法. 关于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;