📄 03.htm
字号:
<html><!-- #BeginTemplate "/Templates/text.dwt" --><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css"><!--.title11 { font-family: "黑体"; font-size: 11pt; color: #339900; font-weight: bold}.text11 { font-family: "宋体"; font-size: 11pt; color: #009933; font-weight: normal}--></style></head><body bgcolor="#FFFFFF" background="../q1.jpg"><span class="text11"></span> <table width="91%" border="0" height="371" class="title11"> <tr class="title11" align="center"> <td height="26" class="title11"><!-- #BeginEditable "title" -->运行时生成控件 <!-- #EndEditable --></td> </tr> <tr class="text11" align="left" valign="top"> <td class="text11"><!-- #BeginEditable "text" --> ㈠、运行时生成可视控件：以下以Tedit 控件为例<br> 1.在Form的Public中定义Tedit控件<br> Edit1:Tedit;<br> 2.在需要生成的地方加入以下代码：<br> Edit1:=Tedit.Create(Self);<br> Edit1.Parent:=Form1;<br> Edit1.Left ?:=20;<br> Edit1.Top :=20;<br> Edit1.Text :='Edit1 Text';<br> 3.使用完毕后，释放分配的资源<br> if? Assigned(Edit1) then Edit1.Free; ?<br> ㈡、运行时生成非可视控件：以下以 Ttimer控件为例<br> 1.在Form的Public中定义Ttimert控件<br> Timer1:Ttimber;<br> 2.在需要生成的地方加入以下代码：<br> Timer1:=Ttimer.Create(Self);<br> Timer1.OnTimer:=YourAction;<br> YourAction是自己定义的OnTimer事件，使用<br> procedure TForm1.YourAction(Sender:Tobject); 完成<br> 3.使用完毕后，释放分配的资源<br> if? Assigned(Timer1) then Timer1.Free; ?<!-- #EndEditable --></td> </tr></table><table width="91%" border="0"> <tr class="title11" align="right"> <td><a href="delphi.html"><font color="#66FF00">回到标题列表</font></a></td> </tr></table></body><!-- #EndTemplate --></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -