代码搜索:TObject

找到约 10,000 项符合「TObject」的源代码

代码结果 10,000
www.eeworm.com/read/387447/8675889

~1~ results.pas.~1~

unit results; interface uses Windows, SysUtils, Classes, Graphics, Forms, JvPanel, jpeg, Menus, enhlv, Controls, ComCtrls, StdCtrls, ExtCtrls, ShellApi, ImgList, JvGIF, Dialogs, JvBaseD
www.eeworm.com/read/387447/8675894

~4~ results.pas.~4~

unit results; interface uses Windows, SysUtils, Classes, Graphics, Forms, JvPanel, jpeg, Menus, enhlv, Controls, ComCtrls, StdCtrls, ExtCtrls, ShellApi, ImgList, JvGIF, Dialogs, JvBaseD
www.eeworm.com/read/387447/8675899

~3~ results.pas.~3~

unit results; interface uses Windows, SysUtils, Classes, Graphics, Forms, JvPanel, jpeg, Menus, enhlv, Controls, ComCtrls, StdCtrls, ExtCtrls, ShellApi, ImgList, JvGIF, Dialogs, JvBaseD
www.eeworm.com/read/386969/8715263

txt 鼠标移动控件-自动.txt

再增加一个几何(Shape)控件 把定时器事件的代码改为 procedure TForm1.Timer1Timer(Sender: TObject); begin if Label1.Caption='向上' then Shape1.Top:=Shape1.Top-5; if Label1.Caption='向左' then Shape1.Left:=Shap
www.eeworm.com/read/386969/8715714

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/8715726

txt 鼠标移动控件-自动.txt

1.在左边的对象观察器(Object Inspector)工具栏中翻到事件(Events)页 找到键盘事件(OnKeyDown) 2.双击它生成键盘事件,并添加代码,在窗体Form1的标题上显示按键的值 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin
www.eeworm.com/read/386969/8715873

txt 鼠标移动控件-自动.txt

1.在左边的对象观察器(Object Inspector)工具栏中翻到事件(Events)页 找到键盘事件(OnKeyDown) 2.双击它生成键盘事件,并添加代码,在窗体Form1的标题上显示按键的值 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin
www.eeworm.com/read/386496/8739875

~pas childwin.~pas

unit Childwin; interface uses SysUtils, Windows, Classes, Graphics, Forms, Controls, ExtCtrls, StdCtrls, Buttons, define_types, dicom, ComCtrls, Menus, Dialogs, JPEG, decompress, lsJPEG, C
www.eeworm.com/read/386496/8739896

pas childwin.pas

unit Childwin; interface uses SysUtils, Windows, Classes, Graphics, Forms, Controls, ExtCtrls, StdCtrls, Buttons, define_types, dicom, ComCtrls, Menus, Dialogs, JPEG, decompress, lsJPEG, C
www.eeworm.com/read/386118/8763852

~pas unitbiandianz.~pas

unit UnitBianDianZ; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons; type TFormBianDianZ = class(TForm)