搜索结果
查询Tags标签： TObject，共有 16条记录-
Delphi 经典游戏程序设计40例 的学习 例30 残留的轨迹是圆形运动
unit R30;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls;typeTRei30 = class(TForm)Panel1: TPanel;Button1: TButton;ScrollBar1: TScrollBar;ScrollBar2: TScrollBar;ScrollBar3: TScrollBar;E…
2022/9/16 14:17:18 人评论 次浏览 -
Delphi 经典游戏程序设计40例 的学习 例29 残留的轨迹是钟摆线
unit R29;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls;typeTRei29 = class(TForm)Panel1: TPanel;Button1: TButton;ScrollBar1: TScrollBar;ScrollBar2: TScrollBar;ScrollBar3: TScrollBar;E…
2022/9/14 14:16:13 人评论 次浏览 -
02-mORMot框架样例学习-02 - Embedded SQLite3 ORM(SQLite3 数据库）
program Project01; uses{$I SynDprUses.inc} // use FastMM4 on older Delphi, or set FPC threadsForms, SysUtils, SynCommons, mORMot,Unit1 in Unit1.pas {Form1},mORMotSQLite3, SynSQLite3Static; {$R *.res} beginApplication.Initialize;Application…
2022/9/5 2:22:58 人评论 次浏览 -
DELPHI动态创建窗体
//第一种方式 procedure TForm1.btn1Click(Sender: TObject); begin With TForm2.Create(Application) do TryShowModal; finallyfree; end; end;//第二种方式 procedure TForm1.btn2Click(Sender: TObject); beginif not assigned(Form2) thenbeginForm2:=TForm2.Create(…
2021/7/17 23:39:30 人评论 次浏览 -
DELPHI动态创建窗体
//第一种方式 procedure TForm1.btn1Click(Sender: TObject); begin With TForm2.Create(Application) do TryShowModal; finallyfree; end; end;//第二种方式 procedure TForm1.btn2Click(Sender: TObject); beginif not assigned(Form2) thenbeginForm2:=TForm2.Create(…
2021/7/17 23:39:30 人评论 次浏览 -
Delphi中MediaPlayer简单使用--播放视频
------------------ 仅做简单的测试，只想看看怎么播放视频，不想弄这个，有兴趣的可以深入了解，谢谢！ 要想更深入了解请参考：Delphi多媒体设计之TMediaPlayer组件（一） - pchmonster - 博客园 https://www.cnblogs.com/pchmonster/archive/2012/07/12/2588846.html …
2021/6/17 18:26:01 人评论 次浏览 -
如何使用 TStringGrid 呈现大量的颜色信息 - 回复 "冷公子" 的问题
如何使用 TStringGrid 呈现大量的颜色信息 - 回复 "冷公子" 的问题"冷公子" 同学需要在 TStringGrid 中通过颜色显示大量信息, 给出的方案是: 建立一个对应的颜色数组.参考代码:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Clas…
2021/5/20 18:25:25 人评论 次浏览 -
给定 ComboBox 的默认值
unitUnit1; interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; typeTForm1 = class(TForm) ComboBox1: TComboBox; Button1: TButton; Button2: TButton; procedureFormCreate(Sender: TObject…
2021/5/10 18:29:20 人评论 次浏览 -
捕捉 midi 输入消息的基本程序
捕捉 midi 输入消息的基本程序 uses MMSystem;var hMidiIn: Integer;procedure midiCallBack(hdrvr: HDRVR; uMsg: UINT; dwUser: DWORD; dw1, dw2: DWORD) stdcall; begincase uMsg ofMIM_OPEN: ;MIM_CLOSE: ;MIM_DATA: Form1.Memo1.Lines.Add(IntToStr(dw1));MIM_LONG…
2021/5/1 12:58:07 人评论 次浏览 -
颜色选取 - 权当给 supperment 的回复吧, 你的要求要用到"种子算法", 我暂时还没算明白.
颜色选取 - 权当给 supperment 的回复吧, 你的要求要用到"种子算法", 我暂时还没算明白.本例效果图:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TFo…
2021/4/30 22:56:22 人评论 次浏览 -
学习 SQL 语句 - Select(2): 指定表中的字段
学习 SQL 语句 - Select(2): 指定表中的字段//选择 country 表中的 Name 字段 SELECT Name FROM country//选择 country 表中的 Name、Area 和 Population 字段 SELECT Name,Area,Population FROM country{多个字段时, 字段名是用 "," 隔开的}本例效果图: 代码文…
2021/4/30 19:28:59 人评论 次浏览 -
多线程编程(3) - 从 CreateThread 说起[续]
多线程编程(3) - 从 CreateThread 说起[续]function CreateThread(lpThreadAttributes: Pointer;dwStackSize: DWORD;lpStartAddress: TFNThreadStartRoutine;lpParameter: Pointer;dwCreationFlags: DWORD; {启动选项}var lpThreadId: DWORD ): THandle; stdcall;CreateT…
2021/4/30 12:55:17 人评论 次浏览 -
多线程编程(8) - 多线程同步之 CriticalSection(临界区)
多线程编程(8) - 多线程同步之 CriticalSection(临界区)先看一段程序, 代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)ListBox1: TListBox;Button1: TButton…
2021/4/30 12:55:13 人评论 次浏览 -
多线程编程(12) - 多线程同步之 Semaphore (信号对象)
多线程编程(12) - 多线程同步之 Semaphore (信号对象)之前已经有了两种多线程的同步方法: CriticalSection(临界区) 和 Mutex(互斥), 这两种同步方法差不多, 只是作用域不同; CriticalSection(临界区) 类似于只有一个蹲位的公共厕所, 只能一个个地进; Mutex(互斥) 对象类…
2021/4/30 12:55:10 人评论 次浏览 -
多线程编程(13) - 多线程同步之 Event (事件对象)
多线程编程(13) - 多线程同步之 Event (事件对象) 据说 Event(事件对象) 是多线程最原始的同步手段, 我觉得它是最灵活的一个. Event 对象(的句柄表)中主要有两个布尔变量, 从它的建立函数中可以看得清楚:function CreateEvent(lpEventAttributes: PSecurityAttributes; {…
2021/4/30 12:55:09 人评论 次浏览
