unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
btn: TButton;
begin
{如果 Panel1 不存在则退出}
if Panel1 = nil then Exit;
{第一次 btn 依附窗体创建, 也就是它的 Owner 属性是窗体}
btn := TButton.Create(Self);
btn.Parent := Self;
btn.Caption := btn.Owner.ClassName + '- btn';
btn.Left := 0;
btn.Top := 0;
{第二次 btn 依附 Panel1 创建, 也就是它的 Owner 属性是 Panel1}
btn := TButton.Create(Panel1);
btn.Parent := Self;
btn.Caption := btn.Owner.ClassName + '- btn';
btn.Left := 0;
btn.Top := btn.Height;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
{当 btn 做依附的 Owner 属性对象销毁时, 它也随之销毁}
Panel1.Free;
end;
end.
//效果图:
控件的 Owner 属性演示
原创上一篇:演示控件的 Anchors 属性
下一篇:控件的 Parent 属性演示
-
ListView控件演示01
此代码示例来自于微软的MSDN,在此基础进行了一些修改。下面的代码示例创建
listview imagelist icons user object -
jquery中文日期控件演示
下载地址:点击打开链接
jquery 控件 .net 下载地址 -
如何用Powershell查看文件夹的owner属性
PS D:\> Get-Acl * Directory: D:\Path Owner 
powershell;获取文件夹owne -
AjaxControlToolkit AutoCompleteExtender控件演示
原本程序是一个查询文本框,现用户要求改程序,要如google或baidu输入一样,有自动完成功能。下图是已经完成的效果:实现使用了Web Service技术与Ajax的AutoCompleteExtender的控件。在数据库中,写好存储过程:usp_Fqa_LotNumberCompletionList CREATEPROCEDURE[dbo].[usp_Fqa_LotNumberCompletionList](@PrefixTextNVARCHAR(4000),@TopCountINT)ASDECLARE@WNVARCHAR(4000)=@PrefixText+'%'EXEC
Ajax BusinessBase Services Web Service WCF Service -
AjaxControlToolkit HoverMenuExtender 控件演示
AjaxControlToolkit有一个HoverMenuExtender控件用于当鼠标滑过一个Web控件时,弹出一个列表,首先观看效果:这是AjaxControlToolkit控件,当然是在Ajax下应用。在aspx页面中应该要写上:ScriptManager <asp:ScriptManagerID="ScriptManager1"runat="server"></asp:ScriptManager>不然在页面run时,会出现如下Error: Server Error in '/InsusTutorials'
Html WebControl Ajax UpdatePanel AjaxcontrolToolkit