搜索结果
查询Tags标签: TForm1,共有 18条记录-
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 人评论 次浏览 -
C++ Builder之StringGrid表格简单示例(TStringGrid控件实例例子)
程序运行截图如下:每次点击可以生成不同的成绩表。 主要源代码如下: //---------------------------------------------------------------------------#include <vcl.h> #pragma hdrstop#include "Unit1.h" //---------------------------------------…
2022/1/7 9:03:33 人评论 次浏览 -
C++ Builder之StringGrid表格简单示例(TStringGrid控件实例例子)
程序运行截图如下:每次点击可以生成不同的成绩表。 主要源代码如下: //---------------------------------------------------------------------------#include <vcl.h> #pragma hdrstop#include "Unit1.h" //---------------------------------------…
2022/1/7 9:03:33 人评论 次浏览 -
修改delphi 窗体名称
默认的情况下,IDE帮我们建立的窗体类都如下:typeTForm1 = class(TForm)ScrollBox1: TScrollBox;GroupBox1: TGroupBox;ScrollBox2: TScrollBox;RadioGroup1: TRadioGroup;private{ Private declarations }public{ Public declarations }end;varForm1: TForm1; 在项目程序里…
2021/8/1 6:07:42 人评论 次浏览 -
修改delphi 窗体名称
默认的情况下,IDE帮我们建立的窗体类都如下:typeTForm1 = class(TForm)ScrollBox1: TScrollBox;GroupBox1: TGroupBox;ScrollBox2: TScrollBox;RadioGroup1: TRadioGroup;private{ Private declarations }public{ Public declarations }end;varForm1: TForm1; 在项目程序里…
2021/8/1 6:07:42 人评论 次浏览 -
C++ Builder关于Application之ProcessMessages方法和Terminated属性——在循环中刷新界面显示、响应点击、关闭程序等
先看一个例子和程序截图:源代码如下: Unit1.h文件 //---------------------------------------------------------------------------#ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include <Clas…
2021/6/26 12:56:46 人评论 次浏览 -
关于禁止程序重复启动的另一种需要与实现
关于禁止程序重复启动的另一种需要与实现手头的程序需要禁止重复启动, 但需要保留新的、关闭旧的.我想还是从主窗口的类名下手吧; 写了一个函数, 在 OnCreate 中调用即可:{ 函数 } procedure CloseSameClassNameWindow(ACurrentWindow: HWND; const AClassName: string); …
2021/5/20 20:58:54 人评论 次浏览 -
给定 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 人评论 次浏览 -
遍历进程并获取进程路径 - 回复 "编程少年" 的问题
遍历进程并获取进程路径 - 回复 "编程少年" 的问题代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Memo1: TMemo;procedure Butt…
2021/5/1 7:25:46 人评论 次浏览 -
颜色选取 - 权当给 supperment 的回复吧, 你的要求要用到"种子算法", 我暂时还没算明白.
颜色选取 - 权当给 supperment 的回复吧, 你的要求要用到"种子算法", 我暂时还没算明白.本例效果图:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TFo…
2021/4/30 22:56:22 人评论 次浏览 -
根据窗口句柄获取所在程序路径 - 回复 "Haiwen" 的问题
根据窗口句柄获取所在程序路径 - 回复 "Haiwen" 的问题问题来源: http://www.cnblogs.com/del/archive/2008/07/30/1255869.html#1272342 本例效果图: 代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, …
2021/4/30 22:25:40 人评论 次浏览 -
学习 SQL 语句 - Select(1): 指定表
学习 SQL 语句 - Select(1): 指定表//选择 country 表中的所有字段 SELECT * FROM country{虽然 SQL 并不区分大小写, 但应习惯把关键字大写}本例效果图: 代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,D…
2021/4/30 19:29:00 人评论 次浏览 -
多线程编程(17) - 多线程同步之 WaitableTimer (等待定时器对象)[续三]
多线程编程(17) - 多线程同步之 WaitableTimer (等待定时器对象)[续三] 根据 WaitableTimer 的主要功用, 现在再把它放在 "线程同步" 的话题中讨论有点不合适了, 就要结束它.//重新看看那个 APC 回调函数的格式: procedure TimerAPCProc(lpArgToCompletionRouti…
2021/4/30 14:26:49 人评论 次浏览 -
多线程编程(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 人评论 次浏览 -
多线程编程(5) - 从 CreateThread 说起[续三]
多线程编程(5) - 从 CreateThread 说起[续三] function CreateThread(lpThreadAttributes: Pointer;dwStackSize: DWORD;lpStartAddress: TFNThreadStartRoutine; {入口函数的指针}lpParameter: Pointer; dwCreationFlags: DWORD;var lpThreadId: DWORD ): THandle; stdca…
2021/4/30 12:55:15 人评论 次浏览