代码搜索：TObject
找到约 10,000 项符合「TObject」的源代码
代码结果 10,000
www.eeworm.com/read/279692/10403167
pas createellipticrgnindirectu.pas
unit CreateEllipticRgnIndirectU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormPaint(Sender: TOb
www.eeworm.com/read/279692/10403225
pas callwindowprocu.pas
unit CallWindowProcU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
www.eeworm.com/read/279692/10403246
pas messageextrainfou.pas
unit MessageExtraInfoU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
{define an application specific user message}
const
UserMe
www.eeworm.com/read/279692/10403298
pas registermessagegetu.pas
unit RegisterMessageGetU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
var
UserMessage: UINT;
type
TForm1 = clas
www.eeworm.com/read/279692/10403303
pas registermessagesendu.pas
unit RegisterMessageSendU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
p
www.eeworm.com/read/279692/10403323
pas windowshooku.pas
unit WindowsHookU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
www.eeworm.com/read/279692/10403369
pas loadlibraryexu.pas
unit LoadLibraryExU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
www.eeworm.com/read/279692/10403671
pas copyimageu.pas
unit CopyImageU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
procedure For
www.eeworm.com/read/279692/10403724
pas scalingu.pas
unit ScalingU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormMouseDown(Sender: TObject; Button:
www.eeworm.com/read/279692/10403938
pas lasterroru.pas
unit LastErrorU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure B