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