代码搜索:TObject
找到约 10,000 项符合「TObject」的源代码
代码结果 10,000
www.eeworm.com/read/386969/8715318
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TL
www.eeworm.com/read/386969/8715338
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ExtDlgs;
type
TForm1 = class(TForm)
Edit1: TEd
www.eeworm.com/read/386969/8715349
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TL
www.eeworm.com/read/386969/8715359
txt 显示鼠标位置.txt
1.新建一个文件夹
2.新建一个程序(File-->New-->Application),并保存(Save All)到该文件夹
3.添加标签(Label)控件,把它的标题(文字、Caption属性)改为X,
添加标签(Label)控件,把它的标题(文字、Caption属性)改为Y,
添加编辑框(Edit)控件,把它的文本(文字、Text属性)清空,
添加编辑框(Edit)控件,把它的文本
www.eeworm.com/read/386969/8715363
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, ComCtrls, ToolWin;
type
TForm1 = class(TForm)
Mem
www.eeworm.com/read/386969/8715440
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: T
www.eeworm.com/read/386969/8715457
txt 俄罗斯方块7.txt
增加暂停的功能
11.把暂停和继续两个按钮的功能合二为一,即修改为下面的代码
procedure TForm1.Button3Click(Sender: TObject);
begin
Timer1.Enabled:=not Timer1.Enabled;
if Timer1.Enabled then
Button3.Caption:='暂停'
else Bu
www.eeworm.com/read/386969/8715468
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/8715478
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/8715488
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