📄 enumdemo.dpr
字号:
program EnumDemo_Mazi;
//---按ICON32.TXT生成ICON32.RES编译到exe中---
{$R 'ICON32.RES' 'ICON32.TXT' }
uses
Windows, Enum_Unit in 'Enum_Unit.pas',
public_Unit in 'public_Unit.pas',
Window_Unit in 'Window_Unit.pas',
Button_Unit in 'Button_Unit.pas',
ListView_Unit in 'ListView_Unit.pas';
var
ThreadMessage: TMsg;
//----------主程序-------
begin
Create_Window; //------建立窗体
Create_Button; //------建立按钮
Create_ListView;//------建立列表框
//--------消息循环---------
while GetMessage(ThreadMessage, 0, 0, 0) do
begin
TranslateMessage(ThreadMessage);// 翻译键消息为字符消息
DispatchMessage(ThreadMessage);// 分发消息至窗体处理过程
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -