代码搜索：TObject
找到约 10,000 项符合「TObject」的源代码
代码结果 10,000
www.eeworm.com/read/338159/3320057
js is.js
//**************************}
//{ FastScript v1.0 }
//{ 'is' operator demo }
//{**************************/
var o = new TObject;
var p = new TPersistent;
if (o is TObjec
www.eeworm.com/read/416410/2122782
pas unboundmodedemominercore.pas
unit UnboundModeDemoMinerCore;
interface
uses
UnboundModeDemoTypes;
type
TMinerField = class(TObject)
private
FHeight: Integer;
FWidth: Integer;
FMineCount: Integer;
www.eeworm.com/read/416410/2123621
pas rm_autosearchfield.pas
unit RM_AutoSearchField;
interface
type
TRMAutoSearchField = class(TObject)
private
protected
public
end;
implementation
end.
www.eeworm.com/read/412215/2175238
pas unboundmodedemominercore.pas
unit UnboundModeDemoMinerCore;
interface
uses
UnboundModeDemoTypes;
type
TMinerField = class(TObject)
private
FHeight: Integer;
FWidth: Integer;
FMineCount: Integer;
www.eeworm.com/read/475606/6774199
txt 实例——确定用户登录数据库的合法性.txt
procedure TForm1.SQLConnectionBeforeConnect(Sender: TObject);
begin
with Sender as TSQLConnection do
begin
if LoginPrompt = False then
{判别TSQLConnection
www.eeworm.com/read/108245/15589637
txt 00501.txt
1：打开启动菜单
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Form1.handle,WM_SYSCOMMAND,SC_TASKLIST,0);
end;
2：更改系统时间
procedure TForm1.Button2Click(Sender: TObject);
var
www.eeworm.com/read/192411/8383899
pas person.pas
unit Person;
interface
type
TPerson = class(TObject)
private // private declarations
_ID :Integer;
_Name :string;
_Sex :string;
_HP :
www.eeworm.com/read/386305/8756844
pas configobjectunit.pas
unit ConfigObjectUnit;
interface
uses
Classes ;
type
TConfig = class(TObject )
private
FPath : string ;
// FBeginDate : String ;
// FEndDate : string ;
// FDepreValue
www.eeworm.com/read/386305/8756881
~pas configobjectunit.~pas
unit ConfigObjectUnit;
interface
uses
Classes ;
type
TConfig = class(TObject )
private
FPath : string ;
// FBeginDate : String ;
// FEndDate : string ;
// FDepreValue
www.eeworm.com/read/182824/9190194
txt 闪动标题栏.txt
procedure TForm1.Timer1Timer(Sender: TObject);
begin
FlashWindow(Form1.Handle,TRUE);
end;