代码搜索：TObject
找到约 10,000 项符合「TObject」的源代码
代码结果 10,000
www.eeworm.com/read/386969/8715694
txt 俄罗斯方块1.txt
1.建一个文件夹，用于放程序。
2.新建一个程序。
3.保存(用Save All)
4.向窗体添加按钮Button1,并添加事件和代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
Canvas.Brush.Color:=clRed;
Canvas.Rectangle(20,20,40,100);
end;
www.eeworm.com/read/386969/8715695
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormPaint(Sender: T
www.eeworm.com/read/386969/8715712
txt 鼠标移动-自动.txt
1.建一个文件夹，用于放程序。
2.新建一个程序。
3.保存(用Save All)到该文件夹
4.添加定时器(Timer)控件
5.双击它添加事件，并添加代码
6.添加一个标签(Label)控件，把它的标题(Caption)改为"向上"
7.添加4个按钮(Button)控件，把它们的标题(Caption)属性分别改为
"向上"、"向下"、"向左"、"向右"
8.双击按钮，添加事件， ...
www.eeworm.com/read/386969/8715764
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FileCtrl;
type
TForm1 = class(TForm)
FileListBox1: TFile
www.eeworm.com/read/386969/8715794
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button
www.eeworm.com/read/386969/8715804
txt 移动.txt
新建程序
1.新建一个文件夹(在"E:\我的程序"下新建一个"移动"文件夹)
2.新建程序(打开Delphi-->File-->New-->Application)
3.保存到新建的文件夹(Save All)
添加控件
1.从控件工具栏添加4个按钮(Button)
2.把它们的标题(Caption)属性分别改为"向上"、"向左"、"向下"、"向右"
3.双击按钮，添加事件，并添加代码
www.eeworm.com/read/386969/8715867
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/8715875
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, MPlayer, ExtCtrls, Gauges;
type
TForm1 = class(TForm
www.eeworm.com/read/386969/8715906
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Sockets, StdCtrls, ExtCtrls, NMUDP;
type
TForm1 = class(TForm)
Edi
www.eeworm.com/read/386969/8715916
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;