社区
Delphi
帖子详情
关于动态创建组件的问题?、/
dsq1980
2004-08-28 05:35:07
我程序运行中我动态创建了一个Tshape组件(MYshape),在运行中我如何来访问他,比如我要修改他的color 属性
...全文
107
6
打赏
收藏
关于动态创建组件的问题?、/
我程序运行中我动态创建了一个Tshape组件(MYshape),在运行中我如何来访问他,比如我要修改他的color 属性
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
dsq1980
2004-08-28
打赏
举报
回复
呵呵,谢谢楼上,我犯了一个愚蠢的问题,就是把变量范围给搞错了,惭愧惭愧
wintergoes
2004-08-28
打赏
举报
回复
procedure TForm1.FormCreate(Sender: TObject);
var
Myshape:Tshape;
begin
Myshape:=Tshape.Create(nil);
Myshape.Parent:=form1;
Myshape.Left :=200;
Myshape.Top :=200;
end;
blazingfire
2004-08-28
打赏
举报
回复
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
MyShape: TShape;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
MyShape := TShape.Create(Self);
MyShape.Parent := Self;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
MyShape.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MyShape.Brush.Color := clRed;
end;
end.
aiirii
2004-08-28
打赏
举报
回复
(Findcomponent('Sharp1') as TSharp).Color
如果你創建的名字是 Sharp1 的話
tsst
2004-08-28
打赏
举报
回复
你建了一个控件,那它就是一个类实例了!通过名字就可以访问了!
这个与动态,静态是没有关系的!你只要确保它在使用范围内就可以了!
「已注销」
2004-08-28
打赏
举报
回复
通过控件名访问
Android省市区三级联动滚轮选择——Cascade_Master
从真实项目中提取出来的,Android省市区三级联动滚轮选择
组件
,基于开源
组件
Android-wheel来实现,效果非常不错,可以直接拿去用。
jQuery.ui.1.7.2中文文档
目前已经完成了大部分内容, 希望可以帮助到各位网友.
Android 打造史上最简单的侧滑菜单
代码来自博客实例,有
问题
请留言:http://blog.csdn.net/lmj623565791/article/details/39185641
ViewPager+Fragment基本使用
ViewPager+Fragment基本使用,设计出更加灵活的界面风格
Android ActionBar应用实战,高仿微信主界面的设计实例完整源码
此为示例代码,详细讲解请参考博文: http://blog.csdn.net/guolin_blog/article/details/26365683 如对资源内容有疑问,请到博客中留言。
Delphi
5,928
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章