- 综合排序
- 最热优先
- 最新优先
- 来自专栏Soul Joy Hub
奖学金评分系统（系统分析与设计版与Delphi实现代码）
); procedure FormCreate(Sender: TObject); procedure BitBtn1Click(Sender: TObject); ); procedure bsSkinButton2Click(Sender: TObject); procedure FormClose(Sender: TObject (Sender: TObject); procedure bsSkinButton4Click(Sender: TObject); procedure FormShow( Sender: TObject); procedure N7Click(Sender: TObject); procedure N9Click(Sender: TObject (Sender: TObject); procedure N13Click(Sender: TObject); procedure N14Click(Sender: TObject
1.2K40发布于 2019-02-13 - 来自专栏微卡智享
数组类型与数组指针的巧妙利用
Button4: TButton; Button5: TButton; Button6: TButton; procedure Button1Click(Sender: TObject ); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click (Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} type {先定义结构和结构指针} PMyRec record F1: Char; F2: Word; end; {用静态数组储存或读写结构很方便} procedure TForm1.Button1Click(Sender: TObject
1.2K20发布于 2019-07-24 - 来自专栏Soul Joy Hub
计算器（delphi）
); 44 procedure FormCreate(Sender: TObject); 45 procedure Button2Click(Sender: TObject); 46 procedure Button3Click(Sender: TObject); 47 procedure Button4Click(Sender: TObject); 48 (Sender: TObject); 53 procedure Button10Click(Sender: TObject); 54 procedure Button11Click( : TObject); 57 procedure Button14Click(Sender: TObject); 58 procedure Button15Click(Sender: TObject); 59 procedure Button16Click(Sender: TObject); 60 procedure Edit1Change(Sender: TObject
3.3K20发布于 2019-02-13 - 来自专栏微卡智享
Delphi中使用RTTI
由于对象都是从TObject继承下来的，因此，对象都包含一个指向它们的RTTI的指针以及几个内建的方法。下面的表列出了TObject的一些方法，用这些方法能获得某个对象实例的信息。 ? 假定有一个过程，想让它能够传递任何类型的对象，它应该这样定义： Procedure Foo(AnObject :Tobject); 在这个过程如果要对AnObject进行操作，要把它转换为一个派生对象 ); procedure ListBox1Click(Sender: TObject); procedure btnInitClick(Sender: TObject); procedure btnModifyClick(Sender: TObject); private TestCom : InsertCom; procedure MyClick(Sender : TObject ;//根据名字生成 var tm : TObject; t : TFormClass; begin t := TFormClass(FindClass(AClassName)); tm
2.7K41发布于 2019-07-24 - 来自专栏微卡智享
delphi 使用windowsmediaplayer播放视频
); procedure Button2Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button3Click (Sender: TObject); procedure FormResize(Sender: TObject); private { Private declarations ); begin WindowsMediaPlayer1.controls.stop; end; procedure TForm1.Button2Click(Sender: TObject); ); begin WindowsMediaPlayer1.controls.pause; end; procedure TForm1.FormResize(Sender: TObject);
3.7K20发布于 2019-07-25 - 来自专栏大内老A
EnterLib PIAB又一个BUG？[续]——这是一个致命的BUG
static class PolicyInjection 2: { 3: // Methods 4: public static TInterface Create<TObject EnterpriseLibraryContainer.Current)) 7: { 8: return policyInjector.Create<TObject , TInterface>(args); 9: } 10: } 11: 12: public static TObject Create<TObject EnterpriseLibraryContainer.Current)) 15: { 16: return policyInjector.Create<TObject , TInterface>(params object[] args) where TObject: TInterface; 8: public TObject Create<TObject
944100发布于 2018-01-16 - 来自专栏大内老A
Enterprise Library Policy Injection Application Block 之二： PIAB设计和实现原理
, TInterface>(params object[] args); 2: public static TObject Create<TObject>(params object[] args 1: public static TObject Create<TObject>(params object[] args) 2: { 3: return DefaultPolicyInjector.Create <TObject>(args); 4: } 5: 6: public static TInterface Create<TObject, TInterface>(params object , TInterface>(params object[] args); 8: public TObject Create<TObject>(params object[] args); } 5: 6: public TObject Create<TObject>(params object[] args) 7: { 8: return (TObject
67870发布于 2018-01-16 - 来自专栏全栈程序员必看
delphixe5 android,Delphi XE5 Android手机端转换Ansi字符串
本代码是“浙江-樵夫”开发的一个程序，用来对字符串进行转换，主要代码是： // 读入Ansi(简体中文)文件… procedure TForm1.CornerButton3Click(Sender: TObject ; FreeAndNil(Stream); end; // // ANSI(简体中文) –> Default… procedure TForm1.CornerButton4Click(Sender: TObject Lines.Add(StringValue); end; // // Default –> Ansi(简体中文)… procedure TForm1.CornerButton5Click(Sender: TObject 长度=’+inttostr(length(Data2))+’字节’); end; // // ANSI写回文件… procedure TForm1.CornerButton6Click(Sender: TObject ; end; // // 清屏… procedure TForm1.CornerButton7Click(Sender: TObject); begin Memo1.Lines.Clear; end;
45610编辑于 2022-09-09 - 来自专栏Eureka的技术时光轴
idhttp 下载 添加进度条显示
procedure TUpdatefrm.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode); begin ProgressBar1.Position := ProgressBar1.Max; end; procedure TUpdatefrm.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode begin ProgressBar1.Position := AWorkCount; end; procedure TUpdatefrm.IdHTTP1WorkBegin(Sender: TObject
1.2K20发布于 2019-08-20 - 来自专栏python3
Python For Delphi---
edtResult: TLabeledEdit; PythonDelphiVar3: TPythonDelphiVar; procedure btnExcuteClick(Sender: TObject (Sender: TObject; var Data: Variant); procedure PythonDelphiVar3SetData(Sender: TObject; Data: Variant end; var frmMain: TfrmMain; implementation {$R *.dfm} procedure TfrmMain.btnExcuteClick(Sender: TObject Data: Variant); begin Data:=edtNum1.Text; end; procedure TfrmMain.PythonDelphiVar2GetData(Sender: TObject Data: Variant); begin Data:=edtNum2.Text; end; procedure TfrmMain.PythonDelphiVar3SetData(Sender: TObject
3.6K11发布于 2020-01-10 - 来自专栏全栈程序员必看
使用 IntraWeb (16) – 基本控件之 TIWList、TIWListbox、TIWComboBox、TIWOrderedListbox
type TForm1 = class(TForm) GestureManager1: TGestureManager; procedure FormCreate(Sender: TObject ); procedure FormGesture(Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject ); begin Touch.StandardGestures := [sgLeft, sgRight]; end; procedure TForm1.FormGesture(Sender: TObject
47130发布于 2021-09-07 - 来自专栏全栈程序员必看
Delphi XE5 FireMonkey移动开发示例：粒子系统
); procedure FormDestroy(Sender: TObject); procedure FormPaint(Sender: TObject; Canvas: TCanvas ; const ARect: TRectF); procedure Timer1Timer(Sender: TObject); private { Private declarations } FParticleSystem: TParticleSystem; FPS: Integer; procedure DoIdle(Sender: TObject; var ; var Done: Boolean); begin Invalidate(); end; procedure TParticleForm.FormCreate(Sender: TObject) ; end; procedure TParticleForm.FormPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); begin
87420编辑于 2022-09-09 - 来自专栏Eureka的技术时光轴
解决锁定键盘鼠标的方法
stdcall; external 'user32.DLL'; {block input/ blockieren} procedure TForm1.Button1Click(Sender: TObject BlockInput(True); end; {Unblock input / Blockierung aufheben} procedure TForm1.Button2Click(Sender: TObject
1.2K20发布于 2019-07-24 - 来自专栏大内老A
EnterLib PIAB又一个BUG？[续]——这是一个致命的BUG
static class PolicyInjection 2: { 3: // Methods 4: public static TInterface Create<TObject EnterpriseLibraryContainer.Current)) 7: { 8: return policyInjector.Create<TObject , TInterface>(args); 9: } 10: } 11: 12: public static TObject Create<TObject EnterpriseLibraryContainer.Current)) 15: { 16: return policyInjector.Create<TObject , TInterface>(params object[] args) where TObject: TInterface; 8: public TObject Create<TObject
1.1K110发布于 2018-01-16 - 来自专栏全栈程序员必看
FindWindowEX应用实例二则[通俗易懂]
Dialogs, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; procedure FormClose(Sender: TObject ); procedure HideOrShow(Sender:TObject); public { Public declarations } end; var Form1: TForm1 ; implementation {$R *.dfm} { TForm1 } procedure TForm1.EnableOrDisable(Sender: TOBject); begin [4]:=FindWindowEx(wnd[4],HWND(0),‘TrayClockWClass’,nil); end; procedure TForm1.HideOrShow(Sender: TObject wnd[3],SW_SHOW ); 4:ShowWindow(wnd[4],SW_SHOW ); end; end; procedure TForm1.FormClose(Sender: TObject
82420编辑于 2022-08-23 - 来自专栏Soul Joy Hub
电灯小游戏
45 bsSkinButton2: TbsSkinButton; 46 Image1: TImage; 47 procedure FormCreate(Sender: TObject ); 48 procedure Panel1Click(Sender: TObject); 49 procedure bsSkinButton1Click(Sender: TObject ); 50 procedure bsSkinComboBox1Click(Sender: TObject); 51 procedure bsSkinButton2Click(Sender : TObject); 52 private 53 { Private declarations } 54 public 55 { Public declarations 63 implementation 64 65 {$R *.dfm} 66 67 68 69 procedure TForm6.bsSkinButton1Click(Sender: TObject
66730发布于 2019-02-13 - 来自专栏Eureka的技术时光轴
DelphiHookApi(经典)
MovEax:Byte; Addr:DWORD; JmpCode:Word; dwReserved:Byte; end; TNtHookClass=class(TObject ); procedure btnUnhookClick(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public ); begin StartHook(GetCurrentProcessId); end; procedure TfrmMain.btnUnhookClick(Sender: TObject) ; begin EndHook; end; procedure TfrmMain.Button1Click(Sender: TObject); begin MessageBox(0,
1.3K50发布于 2019-07-24 - 来自专栏Eureka的技术时光轴
delphi枚举wmi
TForm) Button1: TButton; Memo: TMemo; Button2: TButton; procedure Button1Click(Sender: TObject ); procedure Button2Click(Sender: TObject); procedure MemoKeyDown(Sender: TObject; var Key: Word s:=Obj; result:=result+','+s; end; end; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject nil; end; finally FWbemLocator := nil; end; end; procedure TForm1.Button2Click(Sender: TObject memo.lines.add('Unknown type'); end; memo.lines.Add(StrValue); end; procedure TForm1.MemoKeyDown(Sender: TObject
2.6K30发布于 2019-07-24 - 来自专栏Soul Joy Hub
《世界杯彩票竞猜系统》设计报告
: TObject); 25 procedure bsSkinButton1Click(Sender: TObject); 26 private 27 { Private declarations Sender: TObject); 37 procedure Button1Click(Sender: TObject); 38 procedure SpeedButton1Click (Sender: TObject); 39 procedure bsSkinButton1Click(Sender: TObject); 40 private 41 { Private ); 32 procedure bsSkinComboBox1Change(Sender: TObject); 33 procedure FormCreate(Sender: TObject : TObject); 36 procedure SpeedButton1Click(Sender: TObject); 37 private 38 { Private declarations
1.2K20发布于 2019-02-13 - 来自专栏mini188
学习笔记：delphi多线程知识
end; end; //设置事件状态为无信号，阻塞线程 procedure TForm1.Button1Click(Sender: TObject); begin ResetEvent(hEvent ); end; //设置事件状态为有信号，线程解除阻塞 procedure TForm1.Button2Click(Sender: TObject); begin SetEvent(hEvent) ; end; //设置一次脉冲信号状态，先设置有信号，再设置无信号 procedure TForm1.Button3Click(Sender: TObject); begin PulseEvent ReleaseMutex(hMutex); end; end; Result := 0; end; procedure TForm1.FormCreate(Sender: TObject , nil);//第二个参数为False表示创建的互斥对象不被任何线程拥有，也就说初始状态为未锁定，线程可以占有 end; procedure TForm1.FormDestroy(Sender: TObject
1.6K60发布于 2018-01-12
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号