代码搜索：TObject
找到约 10,000 项符合「TObject」的源代码
代码结果 10,000
www.eeworm.com/read/287170/8713427
~h unit1.~h
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include
www.eeworm.com/read/431009/8713963
~pas main.~pas
unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedu
www.eeworm.com/read/386969/8715085
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: T
www.eeworm.com/read/386969/8715097
txt 射击小游戏练习.txt
保存当前的程序(Save All)
关闭当前的程序(File-->Close All)
1.建一个文件夹，用于放程序。
2.新建一个程序。
3.保存(用Save All)
4.添加两个"几何"(Shape)控件(在控件栏的第二页"Additional"),
把第二个的形状(Shape属性)改为"圆的"(stCircle)
5.添加两个"定时器"(Timer)控件，分别让Shape1向
www.eeworm.com/read/386969/8715101
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ComCtrls;
type
TForm1 = class(TFor
www.eeworm.com/read/386969/8715132
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
www.eeworm.com/read/386969/8715146
txt 移动.txt
新建程序
1.新建一个文件夹(在"E:\我的程序"下新建一个"移动"文件夹)
2.新建程序(打开Delphi-->File-->New-->Application)
3.保存到新建的文件夹(Save All)
打开程序
双击.dpr文件
添加控件
1.从控件工具栏添加定时器(Timer)控件
2.双击定时器，添加事件，并添加代码
procedure TForm1.Timer1Ti
www.eeworm.com/read/386969/8715148
txt 文本编辑器-可改文件名.txt
1.新建一个文件夹
2.新建一个程序(File-->New-->Application)，并保存(Save All)到该文件夹
3.添加一个Memo控件(先在控件栏找到Memo，并点击，然后在窗体(Form1)上点一下),
添加一个“保存”对话框(在控件工具栏翻到对话框(Dialogs)找到Save Dailog)
添加一个按钮(Button),把它的标题(Caption属性)改为“保存”
www.eeworm.com/read/386969/8715179
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
www.eeworm.com/read/386969/8715192
txt 鼠标移动控件-自动.txt
1.添加几何(Shape)控件
2.添加定时器(Timer)控件,并双击它添加代码，让Shape1向右移动
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Shape1.Left:=Shape1.Left+5;
end;
3.再添加几何(Shape)控件
改变其"形状"(Shape)属性为"圆形"
4.再添加定时器(Ti