代码搜索: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